Дан вектор A(n). Положительные элементы с четными индексами заменить на максимальный элемент вектора — Паскаль (Pascal) — CF

var a:array[1..20] of integer;
    n,i,mx:integer;
begin
randomize;
repeat
write('Введите размер вектора от 2 до 20 n=');
readln(n);
until n in [2..20];
writeln('Исходный вектор');
for i:=1 to n do
 begin
  a[i]:=-50+random(100);
  write(a[i]:4);
  if i=1 then mx:=a[1]
  else if a[i]>mx then mx:=a[i];
 end;
writeln;
writeln('Максимальный элемент=',mx);
for i:=1 to n do
if (i mod 2=0)and(a[i]>0) then a[i]:=mx;
writeln('Итоговый вектор');
for i:=1 to n do
write(a[i]:4);
end.

Программа на onlinegdb

Leave a Comment

22 + = 26