Question

1. Дан массив из 5 элементов, состоящий только из 0 и 1 (вводим с клавиатуры) Заменить все нули на -1 и вывести новый массив на экран. (Паскаль).
2.В массиве состоящем из 10 (вводим с клавиатуры) элементов утроить элементы стоящие на четных местах. Вывести новый массив на экран. (Паскаль)
Помогите очень нужно((​

Answer 1

1)

const

 n=5;

var

 a:array [1..n] of integer;

 i:integer;

begin

 for i:=1 to n do

   begin

     readln(a[i]);

     if a[i]=0 then a[i]:=-1;

   end;

 writeln;

 for i:=1 to n do

   write(a[i]:4);

end.

2)

const

 n=10;

var

 a:array [1..n] of integer;

 i:integer;

begin

 for i:=1 to n do

   begin

     readln(a[i]);

     if i mod 2 = 0 then

       a[i]:=a[i]*3;

   end;

 writeln;

 for i:=1 to n do

   write(a[i]:4);

end.