Дан массив K[1 ... 37] в интервале от 0 до 100. Найти сумму элементов массива, которые являются 2-х значными числами и кратные 3, и заменить их на максимальных

Question

Информатика

Эмилиан

15 апреля, 05:48

Дан массив K[1 ... 37] в интервале от 0 до 100. Найти сумму элементов массива, которые являются 2-х значными числами и кратные 3, и заменить их на максимальных

+2

Ответы (1)

Знаешь ответ?

Нонна · Answer 1

Var

i, sum, max:integer;

K: array [1 ... 37] of integer;

begin

writeln ('Введите массив');

for i:=1 to 37 do

read (K[i]);

sum:=0;

max:=0;

for i:=1 to 37 do begin

if max
max:=K[i];

end;

for i:=1 to 37 do begin

if (K[i]>9) and (K[i] mod 3=0) then begin

sum:=sum+K[i];

K[i]:=max;

end;

end;

writeln ('сумма = ', sum);

writeln ('Новый массив');

for i:=1 to 37 do begin

write (K[i],' ');

end;

end.