Задан целочисленный массив размера N. Определить число элементов в массиве кратных 2 (написать на pascal)
Ответы
Ответ дал:
0
program col;
var
arr: array [1..10] of integer;
i,n,col: integer;
begin
randomize;
n:=10;
col:=0;
for i:=1 to n do begin
arr[i]:=random(100);
if arr[i] mod 2=0 then col:=col+1;
write(arr[i],',');
end;
writeln;
writeln('количество элементов кратных двум ', col);
readln;
end.
var
arr: array [1..10] of integer;
i,n,col: integer;
begin
randomize;
n:=10;
col:=0;
for i:=1 to n do begin
arr[i]:=random(100);
if arr[i] mod 2=0 then col:=col+1;
write(arr[i],',');
end;
writeln;
writeln('количество элементов кратных двум ', col);
readln;
end.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад
8 лет назад