Дан массив из 15 целых чисел заполнен случайными числами от 30 до 90 Подсчитать колли
Дан массив из 15 целых чисел заполнен случайными числами от 30 до 90 Подсчитать колличество элементов массива которые делятся на 2
Гость
Ответ(ы) на вопрос:
Гость { FreePascal }
program test;
var
a : array[1..15] of byte;
i, n , c: byte;
begin
randomize;
writeln('Массив:');
for i:=1 to 15 do
begin
a[i] := random(90-30+1)+30;
write(a[i], ' ');
end;
writeln;
writeln;
writeln('Список элементов, делящихся на 2:');
c:=0;
for i:=1 to 15 do begin
n:=a[i];
if (n mod 2 = 0) then begin
write (a[i], ' ');
inc(c);
end;
end;
writeln;
writeln;
writeln('Найдено ', c, ' элементов массива, которые делятся на 2');
end.
Не нашли ответ?
Похожие вопросы