Создаём массив из 11 элементов, который называем Dat:
целтаб Dat[1:11]Объявляем переменные к и ш, являющимися целыми числами:
цел к, шЗаполняем массив Dat:
Dat[1]:=21 Dat[4]:=19 Dat[7]:=23 Dat[10]:=29 Dat[2]:=23 Dat[5]:=25 Dat[8]:=21 Dat[11]:=19 Dat[3]:=20 Dat[6]:=22 Dat[9]:=22Присваиваем переменной ш значение 0.
ш:=0Объявляем цикл от 1 до 11, то бишь пробегаемся по массиву Dat и смотрим, если значение элемента больше 22, то прибавляем к переменной ш 1:
нц для к от 1 до 11 если Dat[к]>22 то ш:=ш+1 Все кцВыводим на экран значение переменной ш:
вывод шТаким образом мы видим, что программа подсчитывает количество классов в которых больше 22 учеников. Таких классов будет 4: 2(23), 5(25), 7(23) и 10(29).
program z1;
var i,a,k,p:integer;
begin
k:=0;
p:=1;
for i:=1 to 12 do
begin
write('Введите число: ');
readln(a);
if a < 0 then k:=k+1;
p:=p*a
end;
writeln('Произведение чисел: ',p);
writeln('Отрицательных чисел: ',k)
end.
Объяснение:
картинка
если надо вводить большие числа, то изменить описание переменных на
var i,a,k:integer;
p:real;