Заменить все положительные элементы массива на максимальный элемент массива .Напишите программу в ПАСКАЛЬ.
Answers & Comments
STAJLb
Var i,max:integer; a:array [1..10] of integer; begin for i:=1 to 10 do begin readln(a[i]); end; max:=a[1]; write('Исходный массив: '); for i:=1 to 10 do begin write(a[i]); write(' '); end; for i:=1 to 10 do begin if (a[i] > max ) then max:=a[i]; end; for i:=1 to 10 do begin if (a[i] > 0) then a[i]:=max; end; writeln(' '); write('Полученный массив: '); for i:=1 to 10 do begin write(a[i]); write(' '); end; end.
Answers & Comments
i,max:integer;
a:array [1..10] of integer;
begin
for i:=1 to 10 do begin
readln(a[i]);
end;
max:=a[1];
write('Исходный массив: ');
for i:=1 to 10 do begin
write(a[i]);
write(' ');
end;
for i:=1 to 10 do begin
if (a[i] > max ) then
max:=a[i];
end;
for i:=1 to 10 do begin
if (a[i] > 0) then a[i]:=max;
end;
writeln(' ');
write('Полученный массив: ');
for i:=1 to 10 do begin
write(a[i]);
write(' ');
end;
end.