Информатика 9 класс Pascal ABC

1.
PROGRAM TuKpa6;
const n=5;
var a:array[1..n] of integer;
i:integer;
BEGIN
randomize; {забиваем случайными от 0 до 200}
for i:=1 to n do
begin
a[i]:=random(200);
end;
for i:=1 to n do {поиск.. }
begin
if a[i]>=0 then {..положит. }
begin
writeln('a[',i,']=',a[i]);
end;
end;
END.

2.
PROGRAM TuKpa6;
const n=5;
var a:array[1..n] of integer;
i,sum:integer;
BEGIN
randomize;
for i:=1 to n do {забиваем случайными от 0 до 200 массив}
begin
a[i]:=random(200);
end;
writeln('до');
for i:=1 to n do {вывод до.. }
begin
writeln(a[i]);
end;
for i:=1 to n do {поиск.. }
begin
if a[i] mod 2 = 0 then {..чётных}
begin
if a[i]<>0 then {..чётных}
begin
end
else
begin
a[i]:=a[i]*3;
end;
end
else {..нечётных}
begin
a[i]:=a[i]+2;
end;

end;
writeln('');
writeln('после');
for i:=1 to n do {вывод после.. }
begin
writeln(a[i]);
end;
END.

3.
PROGRAM TuKpa6;
const n=5;
var a:array[1..n] of integer;
i,sum:integer;
BEGIN
writeln('до');
for i:=1 to n do {вывод до.. }
begin
writeln(a[i]);
end;
for i:=1 to n do {поиск.. }
begin
a[i]:=i*i;
end;
writeln('');
writeln('после');
for i:=1 to n do {вывод после.. }
begin
writeln(a[i]);
end;
END.

1. sum:=0; for i:=1 to n do if mass[i] > 0 then sum:=sum+mass[i];
2. for i:=1 to n do if not odd(mass[i]) then mass[i]:=mass[i]*3 else mass[i]:=mass[i]+2;
3. for i:=1 to n do mass[i]:=i*i;