Составьте программу, которая заполняет массив b [1..8] случайными целыми числами в диапазоне от 1 до 10 и находит количество пар элементов с четными значениями.
Ответы на вопрос
Ответил gorynych777
0
var i,k:integer;
mas:array[1..8] of byte;
begin
randomize;
for i:= 1 to 8 do
begin
mas[i]:=1+random(9);
write(mas[i],' ');
if mas[i] mod 2=0 then k:=k+1 end;
writeln();
write(k div 2)
end.
mas:array[1..8] of byte;
begin
randomize;
for i:= 1 to 8 do
begin
mas[i]:=1+random(9);
write(mas[i],' ');
if mas[i] mod 2=0 then k:=k+1 end;
writeln();
write(k div 2)
end.
Ответил Malvina02
0
спасибо
Новые вопросы