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