Дан случайный массив из N чисел, лежащих в промежутке [-15;15]. Выписать из него все четные числа, подсчитать их количество. Если таких чисел нет, то вывести сообщение об этом.
Answers & Comments
simbion0
//PascalABC.NET const n = 10; // Задаем размер массива var a: array [1..n] of integer; i,kol:integer; begin for i:=1 to n do begin A[i]:=(random(30)-15); if a[i] mod 2 = 0 then begin write(a[i],' '); kol:=kol+1; end; end; writeln; if kol <> 0 then writeln('Кол-во четных элементов: ',kol) else writeln('Четных элементов нет'); end.
Answers & Comments
const
n = 10; // Задаем размер массива
var
a: array [1..n] of integer;
i,kol:integer;
begin
for i:=1 to n do begin
A[i]:=(random(30)-15);
if a[i] mod 2 = 0 then begin
write(a[i],' ');
kol:=kol+1;
end;
end;
writeln;
if kol <> 0 then writeln('Кол-во четных элементов: ',kol)
else writeln('Четных элементов нет');
end.