Предмет: Информатика,
автор: CheeArin
заполните массив случайными числами в диапазоне от -10 до 10 выведите на экран вычислить сколько раз в нем встречаются числа кратные 3 и найдите их сумму
Ответы
Автор ответа:
0
var
i,sum,k:integer;
mas: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
mas[i]:=random(-10,10);
write(mas[i], ' ');
end;
writeln(' ');
for i:=1 to 10 do begin
if mas[i] mod 3 = 0 then begin
k:=k+1;
sum:=sum+mas[i];
end
end;
writeln('Числа кратные 3 встречаются ',k,' раз. И их сумма = ',sum);
end.
i,sum,k:integer;
mas: array [1..10] of integer;
begin
randomize;
for i:=1 to 10 do begin
mas[i]:=random(-10,10);
write(mas[i], ' ');
end;
writeln(' ');
for i:=1 to 10 do begin
if mas[i] mod 3 = 0 then begin
k:=k+1;
sum:=sum+mas[i];
end
end;
writeln('Числа кратные 3 встречаются ',k,' раз. И их сумма = ',sum);
end.
Похожие вопросы
Предмет: Алгебра,
автор: sty743383
Предмет: Математика,
автор: ggrafa686
Предмет: Физика,
автор: iraveymedelyan
Предмет: Математика,
автор: аля296
Предмет: Математика,
автор: Аноним