//Паскаль var i,n:integer; a:array[1..20] of integer; begin n:=0; randomize; //заполняем рандомом for i:=1 to 20 do a[i]:=random(20); //считаем, если елемент массива равен шести то увеличиваем переменную n на еденицу for i:=1 to 20 do if a[i]=6 then Inc(n); Writeln('Кол-во шестерок ' , n); end.
var i,n:integer;
a:array[1..20] of integer;
begin
n:=0;
randomize;
//заполняем рандомом
for i:=1 to 20 do
a[i]:=random(20);
//считаем, если елемент массива равен шести то увеличиваем переменную n на еденицу
for i:=1 to 20 do
if a[i]=6 then Inc(n);
Writeln('Кол-во шестерок ' , n);
end.