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

115

236

Посмотреть ответы 2

Ответы на вопрос:

godday

Информатика

4,5(48 оценок)

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< k[i] then 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.