Составе программу, которая заполняет массив b[1..8] случайными целыми числами в диапазоне от 1 до 10 и находит произведение элементов с нечестными значениями и количество элементов с чётными значениями.
Ответы
Ответ дал:
0
var
i, c, p: integer;
ar: array[1..8]of integer;
begin
c := 0;
p := 1;
for i := 1 to 8 do
begin
ar[i] := random(1, 10);
write(ar[i], ' ');
if(ar[i] mod 2 = 0) then c := c + 1
else p := p * ar[i];
end;
writeln;
writeln(p);
writeln(c);
end.
i, c, p: integer;
ar: array[1..8]of integer;
begin
c := 0;
p := 1;
for i := 1 to 8 do
begin
ar[i] := random(1, 10);
write(ar[i], ' ');
if(ar[i] mod 2 = 0) then c := c + 1
else p := p * ar[i];
end;
writeln;
writeln(p);
writeln(c);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
9 лет назад