1. Заполнить массив с клавиатуры целыми числами. Вывести элементы этого массива

1.Program abc;
Var a:array[1..7] of integer;
i:integer;
Begin
for i:=1 to 7 do
read(a[i]);
for i:=1 to 7 do
write(a[i], );
End.
2.Program abc;
Var a:array[1..100] of integer;
b,i:integer;
Begin
for i:=1 to 7 do
begin
a[i]:=random(21);
write(a[i], );
a[i]:=a[i]*(i*3);
end;
writeln;
for i:=1 to 7 do
begin
write(a[i], );
end;
End.
3.Program abc;
Var a:array[1..100] of integer;
b,i:integer;
Begin
b:=0;
for i:=1 to 5 do
begin
read(a[i]);
b:=b+a[i];
end;
write(b);
End.
4.Program abc;
Var a:array[1..100] of integer;
b,c,i:integer;
Begin
b:=0;
c:=0;
for i:=1 to 5 do
begin
read(a[i]);
if a[i]lt;0 then c:=c+1;
if a[i]gt;0 then b:=b+1;
end;
writeln(c);//отрицательные
write(b);//положительные
End.
5.Program abc;
Var a:array[1..100] of integer;
b,c,i:integer;
Begin
for i:=1 to 10 do
begin
a[i]:=random(41)-20;
write(a[i], );
end;
writeln;
for i:=1 to 10 do
begin
if (a[i]lt;0) and (i mod 2=0) then b:=b+1;
if (a[i]gt;0) and (i mod 2=1) then c:=c+1;
end;
writeln(b);
writeln(c);
End.
6.Program abc;
Var a:array[1..100] of integer;
b,i:integer;
Begin
for i:=1 to 10 do
begin
read(a[i]);
write(a[i], );
end;
writeln;
for i:=1 to 10 do
begin
if a[i]gt;0 then a[i]:=sqr(a[i])*a[i];
if a[i]lt;0 then a[i]:=sqr(a[i]);
write(a[i], );
end;
End.
7.Program abc;
Var a:array[1..100] of integer;
max,min,i:integer;
Begin
max:=0;
min:=9999;
for i:=1 to 10 do
begin
read(a[i]);
if a[i]gt;max then max:=a[i];
if a[i]lt;min then min:=a[i];
end;
writeln(max);
write(min);
End.
8.Program abc;
Var a:array[1..100] of integer;
b,i:integer;
Begin
read(b);
for i:=1 to 10 do
begin
a[i]:=random(21);
write(a[i], );
end;
writeln;
for i:=1 to 10 do
begin
if a[i]=b then write(i,- номер отысканного элемента );
break;
end;
End.