ДАН МАССИВ ИЗ 7 ЭЛЕМЕНТОВ. ЗАМЕНИТЬ ВСЕ ЭЛЕМЕНТЫ МАССИВА ЦИФРОЙ ДВА, КРОМЕ МАКСИМАЛЬНОГО ЭЛЕМЕНТА.
Answers & Comments
99taranЗадание 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.
Answers & Comments
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.