Заполнить массив случайными...

Заполнить массив случайными числами из интервала [-50;50] , вывести массив на экран, посчитать сумму отрицательныхэлементов

 

1)
var a:array [1..10] of integer;
i,sum:integer;
begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
a:=random(100)-50;
write (a,' ');
if a < 0 then sum:=sum+a;
end;
writeln;
writeln ('Summa: ',sum);
readln;
end.

2)
var a:array [1..10] of integer;
i,max,index:integer;
begin
for i:=1 to 10 do
begin
write ('A[',i,'] = ');
readln (a);
end;
max:=a[1];
index:=1;
for i:=2 to 10 do
if a > max then
begin
max:=a;
index:=i;
end;
writeln ('Max: ',max,'.Index: ',index);
readln;
end.

3)
var a:array [1..10] of integer;
max,min,i,temp:integer;
begin
randomize;
for i:=1 to 10 do
begin
a:=random(50);
write (a,' ');
end;
writeln;
max:=1;
min:=1;
for i:=2 to 10 do
if a > a[max] then max:=i else
if a < min then min:=i;
writeln ('Max: ',a[max]);
writeln ('Min: ',a[min]);
temp:=a[min];
a[min]:=a[max];
a[max]:=temp;
for i:=1 to 10 do write (a,' ');
end.