Дан массив K[1..37] в интервале от 0 до 100. Найти сумму элементов массива, которые являются 2-х значными числами и кратные 3, и заменить их на максимальных
Дан массив K[1..37] в интервале от 0 до 100. Найти сумму элементов массива, которые являются 2-х значными числами и кратные 3, и заменить их на максимальных
Гость
Ответ(ы) на вопрос:
Гость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 max9) 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.
Не нашли ответ?
Похожие вопросы