Помогите пожалуйста написать программу , заполняющую массив . 3 номер. В паскаль.

Ответ:

program z1;

var a:array [1..7] of integer;

i: integer;

begin

write ('Массив: ');

for i:= 1 to 7 do

begin

a[i]:=random(41)-20;

write(a[i]:5)

end;

writeln;

write ('Массив: ');

for i:= 1 to 7 do

begin

if a[i]>0 then a[i]:=a[i]*2;

write(a[i]:5)

end

end.

Объяснение:

Сначала заполняем массив и выводим его на экран. Затем проверяем элемент на положительность, если надо умножаем на 2 и выводим его на экран.