Вариант № 1
program z1;
var
m:array[1. . 100] of real;
n, c: integer;
p:real;
begin
n:=15;
for c: =1 to n do
begin
m[c]:=random(6);
write(m[c]:4);
end;
writeln;
p:=1;
for c:=1 to n do
if m[c]<>0 then p:=p*m[c];
writeln(р);
end.
Вариант № 2
program z2 ;
var
b: array[1..50] of real;
k,i:integer;
c:real;
begin
k:=12;
for i: =1 to k do
begin
b[i]:=random(21)-10;
write(b[i]:4);
end;
writeln;
c:=0;
for i:=1 to k do
if (b[i]>0) and (i mod 2 =0) then
c:=c+b[i];
writeln(c);
end.
Вариант № 3
program z3;
var
c:array[1. . 20] of integer;
n, d, m, k: integer;
begin
d:=17;
for k: =1 to d do
begin
c[k]:=random(41)+15;
write(c[k]:4);
end;
writeln;
m:=c[1]; n:=1;
for k:=2 to d do
if c[k]>m then
m:=c[k];
writeln(m);
end.
Вариант № 4
program z4;
var
c:array[1. . 40] of integer;
n, d, m, j: integer;
begin
j:=17;
for d: =1 to j do
begin
c[d]:=random(61)+20;
write(c[d]:4);
end;
writeln;
m:=c[1]; n:=1;
for d:=2 to j do
if c[d]< m then
n:= d;
writeln(n);
end.
Вариант № 5
program z5;
var
m:array[1. . 80] of real;
n, c, p: integer;
begin
n:=7;
for c: =1 to n do
begin
m[c]:=random(31)-20;
write(m[c]:4);
end;
writeln;
p:=0;
for c:=1 to n do
if m[c]<0 then p:=p+1;
writeln(р);
end.
Вариант № 6
program z6 ;
var
b: array[1..10] of real;
k,i,c:integer;
begin
k:=8;
for i: =1 to k do
begin
b[i]:=random(61)-30;
write(b[i]:4);
end;
writeln;
c:=0;
for i:=1 to k do
if (b[i] mod 2=0) and (i mod 2 =0)
then
c:=c+1;
writeln(c);
end.
Вариант № 7
program z7;
var
c:array[1. . 20] of integer;
d, m, k: integer;
begin
d:=17;
for k: =1 to d do
begin
c[k]:=random(41)-15;
write(c[k]:4);
end;
writeln;
m:= 0;
for k:=1 to d do
if c[k] mod 5=0 then
m:=m+c[k];
writeln(m);
end.
Вариант № 8
program z8;
var
c:array[1. . 20] of integer;
n, d, m: integer;
begin
m:=15;
for d: =1 to m do
begin
c[d]:=random(21)-5;
write(c[d]:4);
end;
writeln;
n:=1;
for d:=1 to m do
if c[d] mod 2<>0 then
n:=n*c[d];
writeln(n);
end.
Цель работы: проверка усвоения основных понятий по теме «Одномерные массивы».
Вопросы:
Определить имя массива
Указать тип элементов массива.
Запишите максимальное возможное количество элементов в массиве.
Какой переменной обозначены индексы элементов массива.
Количество элементов в данном массиве.
Как обозначается текущий элемент массива.
Есть ли отрицательные элементы в данном массиве.
Запишите промежуток чисел, из которого выбираются элементы массива случайным образом.
Определить тип переменной, в которой сохраняется результат.
Что вычисляет данная программа.
Критерии оценивания:
«3» - 6-7 верных ответов
«4» - 8-9 верных ответов
«5» - 10 верных ответов
Учащимся раздаются индивидуальные карточки с программой и вопросы (можно вывести на экран). Предварительно для самоподготовки выдан через Дневник.ру тренажер http://learningapps.org/display?v=p10058qta01.
Ответы
<>0 Сумма положительных элементов с четными номерами
Максимальный элемент
Номер минимального элемента
Количество отрицательных элементов
Количнство четных элементов с четными номерами
Сумма элементов кратные 5
Произведение нечетных элементов
