Question

(паскаль)2.заполнить с клавиатуры массив из 10 элементов. если минимальный элемент находится в первой половине массива увеличить каждый четный элемент массива в два раза, в противном случае массив оставить без изменения. вывести новый массив на экран в виде строки.

Answer 1

Program chik3;
var a:array[1..1000]of integer;
i,min,l:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
end;
min:=a[1];l:=1;
for i:=2 to 10 do
begin
if(a[i]<min)then begin
min:=a[i];
l:=i;
end;
end;
for i:=1 to 5 do
begin
if(a[i]=min)then l:=-50;
end;
if(l=-50)then begin
for i:=1 to 10 do
begin
if(a[i] mod 2=0)then a[i]:=a[i]*2;
end;
end;
for i:=1 to 10 do
begin
write(a[i],' ');
end;
end.