1. program primer; //имя программы вроде(необязательно)
var a: array [1..10] of integer; //Объявление целочисленного массива а размером 10 эл.
i, s: integer; //Объявление двух целочисленных переменных
begin //начало
randomize; //Включает датчик случайных чисел(в PascalABC.NET можно не писать)
for i:= 1 to 10 do //Запускается цикл от 1 до 10
a[i]:=random(15-5+1)+5; //Текущему элементу присваивается случайное значение от 5 до 15. И так до тех пор, пока не закончится цикл, т.е. через 10 шагов
for i:= 1 to 10 do //Запускается цикл от 1 до 10
write (a[i], ' '); //Выводится текущий элемент массива. И так до тех пор, пока не закончится цикл, т.е. через 10 шагов
s:=0; //Переменной для суммы присваивается 0
for i:= 1 to 10 do //Запускается цикл от 1 до 10
if a[i] mod 3=0 then //Если текущий элемент массива делится на 3 без остатка тогда
s := s + a[i]; //к сумме прибавляется текущий элемент массива
write('сумма = ',s); //вывод сообщения и значение переменной s
end. //конец
2. Дан массив 16 1 8 2 4 4
к=0
со 2 по 6 делаем
если A[i-1] >=A[i] , делаем к=к+1
1 итерация: если A1>=A2 (A1=16, A2=1, 16>1, значит к=к+1 = 1)
2 итерация: если A2>=A3 (A2=1, A3=8, 1>8? нет, значит к остается прежним)
3 итерация: 8>2? да к=2
4 итерация: 2>4? нет к=2
5: 4>=4? да к=3
выводим к=3
Содержание верного ответа и указания по оцениванию
(допускаются иные формулировки ответа, не искажающие его смысла)
Решение для OpenOffice.org Calc и для Microsoft Excel
Задание допускает много решения. Ниже приведено одно из возможных решений.
Подготовительная часть.
В ячейку запишем формулу
информатика
или
информатика
(здесь и далее первая формула используется для русскоязычного интерфейса, вторая – для англоязычного)
В ячейку запишем формулу
информатика
или
информатика
Скопируем эти формулы во все ячейки диапазона
Задание 1.
В ячейку запишем формулу
или
Задание 2.
В ячейку запишем формулу
или
В ячейку запишем формулу
или
В ячейку запишем формулу
Возможны и другие варианты решения.
Например, при выполнении задания можно упорядочить данные так, чтобы нужные строки стояли подряд, а потом подсчитать их количество, используя нумерацию строк.
Если задание выполнено правильно и при выполнении задания использовались файлы, специально подготовленные для проверки выполнения данного задания, то должны получиться следующие ответы.
var a: array [1..10] of integer; //Объявление целочисленного массива а размером 10 эл.
i, s: integer; //Объявление двух целочисленных переменных
begin //начало
randomize; //Включает датчик случайных чисел(в PascalABC.NET можно не писать)
for i:= 1 to 10 do //Запускается цикл от 1 до 10
a[i]:=random(15-5+1)+5; //Текущему элементу присваивается случайное значение от 5 до 15. И так до тех пор, пока не закончится цикл, т.е. через 10 шагов
for i:= 1 to 10 do //Запускается цикл от 1 до 10
write (a[i], ' '); //Выводится текущий элемент массива. И так до тех пор, пока не закончится цикл, т.е. через 10 шагов
s:=0; //Переменной для суммы присваивается 0
for i:= 1 to 10 do //Запускается цикл от 1 до 10
if a[i] mod 3=0 then //Если текущий элемент массива делится на 3 без остатка тогда
s := s + a[i]; //к сумме прибавляется текущий элемент массива
write('сумма = ',s); //вывод сообщения и значение переменной s
end. //конец
2. Дан массив 16 1 8 2 4 4
к=0
со 2 по 6 делаем
если A[i-1] >=A[i] , делаем к=к+1
1 итерация: если A1>=A2 (A1=16, A2=1, 16>1, значит к=к+1 = 1)
2 итерация: если A2>=A3 (A2=1, A3=8, 1>8? нет, значит к остается прежним)
3 итерация: 8>2? да к=2
4 итерация: 2>4? нет к=2
5: 4>=4? да к=3
выводим к=3
Содержание верного ответа и указания по оцениванию
(допускаются иные формулировки ответа, не искажающие его смысла)
Решение для OpenOffice.org Calc и для Microsoft Excel
Задание допускает много решения. Ниже приведено одно из возможных решений.
Подготовительная часть.
В ячейку запишем формулу
информатика
или
информатика
(здесь и далее первая формула используется для русскоязычного интерфейса, вторая – для англоязычного)
В ячейку запишем формулу
информатика
или
информатика
Скопируем эти формулы во все ячейки диапазона
Задание 1.
В ячейку запишем формулу
или
Задание 2.
В ячейку запишем формулу
или
В ячейку запишем формулу
или
В ячейку запишем формулу
Возможны и другие варианты решения.
Например, при выполнении задания можно упорядочить данные так, чтобы нужные строки стояли подряд, а потом подсчитать их количество, используя нумерацию строк.
Если задание выполнено правильно и при выполнении задания использовались файлы, специально подготовленные для проверки выполнения данного задания, то должны получиться следующие ответы.
На первый вопрос:
На второй вопрос: