Дан случайный массив из N чисел, лежащих в промежутке [-15;15]. Выписать из него все четные числа, подсчитать их количество. Если таких чисел нет, то вывести сообщение об этом.
Ответы
Ответ дал:
0
//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.
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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад