ДАН МАССИВ ИЗ 7 ЭЛЕМЕНТОВ. ЗАМЕНИТЬ ВСЕ ЭЛЕМЕНТЫ МАССИВА ЦИФРОЙ ДВА, КРОМЕ МАКСИМАЛЬНОГО ЭЛЕМЕНТА.
ДАН МАССИВ ИЗ 7 ЭЛЕМЕНТОВ. ЗАМЕНИТЬ ВСЕ ЭЛЕМЕНТЫ МАССИВА ЦИФРОЙ ДВА, КРОМЕ МАКСИМАЛЬНОГО ЭЛЕМЕНТА.
Гость
Ответ(ы) на вопрос:
ГостьЗадание 5.
program untitled;
const N=3;
var max,i,num:integer;
m:array [1..N] of integer;
begin max:=-1000;
for i:=1 to N do
readln(m[i]);
for i:=1 to N do begin
if ((m[i]>m[i+1]) and (m[i]>max)) then begin
max:=m[i];
num:=i;
end;
end;
for i:=1 to N do begin
if i<>num then
m[i]:=2;
end;
for i:=1 to N do begin
write(m[i]);
write(',');
end;
end.
Не нашли ответ?
Похожие вопросы