Дан массив С из 20 элементов. Определить количество шестерок в массиве
Дан массив С из 20 элементов. Определить количество шестерок в массиве
Гость
Ответ(ы) на вопрос:
Гость//Паскаль
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.
Не нашли ответ?
Похожие вопросы