Феодот
6 год назад
Паскаль. написать пограмму которая заполняет массив случайными числами от 1 до 10. в ряду 10 чисел. вот программа:
var a: array [1..10] of integer;
i:integer;
begin randomize;
for i: = 1 to 10 do
begin
a[i]: = random (11);
write ( a[i]:4);
end;
end.
Задание: дописать эту программу, чтобы она выдавала кол-во четных и нечетных примеров массива.
ОТВЕТЫ
Chec
Jul 20, 2019
Uses crt;
var a: array [1..10] of integer;
i,s,k:integer;
begin
clrscr;
randomize;
for i:= 1 to 10 do
begin
a[i]:=random (11);
write ( a[i]:8);
if a[i] mod 2 = 0 then s:=s+1 else k:=k+1;
end;
writeln(Кол-во четных = ,s);
writeln(Кол-во нечетных = ,k);
end.
var a: array [1..10] of integer;
i,s,k:integer;
begin
clrscr;
randomize;
for i:= 1 to 10 do
begin
a[i]:=random (11);
write ( a[i]:8);
if a[i] mod 2 = 0 then s:=s+1 else k:=k+1;
end;
writeln(Кол-во четных = ,s);
writeln(Кол-во нечетных = ,k);
end.
113
Смежные вопросы:
