Предмет: Информатика,
автор: isixone8
Составить алгоритм поиска суммы всех элементов массива целых чисел, кратные 3. Размерность массива - 20. Заполнение массива осуществляется случайными числами от 200 до 300.
(пример как делать прикрепил)
Приложения:

Ответы
Автор ответа:
1
const
n=20;
type
mas = array [1..n] of integer;
procedure search(massive : mas);
var j,s : integer;
begin
s:=0;
for j:=1 to n do
if massive[j] mod 3 = 0 then
s := s + massive[j];
writeln;
writeln('сумма чисел кратных 3: ', s);
end;
var
i, k : integer;
a : mas;
begin
write('массив:');
for i:=1 to n do
begin
a[i]:=random(100)+200;
write(a[i]:4)
end;
search(a);
end.
isixone8:
мне бы блок-схему ещё
Похожие вопросы
Предмет: Русский язык,
автор: юляшка2001апрель
Предмет: Русский язык,
автор: Nastya500
Предмет: Русский язык,
автор: Ромашиш
Предмет: Геометрия,
автор: imagin12
Предмет: Математика,
автор: милана380