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

Question

Информатика

Македоний

31 июля, 10:49

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

+4

Ответы (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.