схемы в турбо паскале

[tanyalove]

Program Mas;
uses crt;
var
a:array [1..100] of integer;
n,i,j,sumpol,sumotr,x:integer;
begin
clrscr;
sumpol:=0;
sumotr:=0;
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do
begin
write('a[',i,']:=');
readln(a[i]);
if a[i]>0 then
sumpol:=sumpol+a[i];
if a[i]<0 then
sumotr:=sumotr+a[i];
end;
writeln('Исходный массив: ');
for i:=1 to n do
begin
write(a[i]:4,' ');
end;
writeln;
writeln('Сумма положительных:=',sumpol,'; Сумма отрицательных:=',sumotr);
if sumpol=abs(sumotr) then
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
writeln('Массив отсортированный: ');
for i:=1 to n do
begin
write(a[i],' ');
end;
end
else writeln('Сумма неравна!!!');
readln
end.




Program Mas2;
uses crt;
var
c:array [1..100] of real;
n,i,j:integer;
pr,sum,x:real;
begin
clrscr;
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do
begin
write('c[',i,']:=');
readln(c[i]);
end;
writeln('Исходный массив: ');
for i:=1 to n do
begin
write(' ',c[i]:1:2,' ');
end;
pr:=1;
i:=4;
while i<=n do
begin
pr:=pr*c[i];
i:=i+4;
end;
writeln;
writeln('Произведение элементов:=',pr:1:3);
if pr<100 then
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if c[i]<c[j] then
begin
x:=c[i];
c[i]:=c[j];
[j]:=x;
end;
writeln('Массив отсортированный: ');
for i:=1 to n do
begin
write(c[i],' ');
end;
end
else
begin
sum:=0;
for i:=1 to 5 do
begin
sum:=sum+c[i];
end;
writeln('Сумма первых пяти элементов массива:=',sum:1:3);
end;
readln
end.

[tanyalove]

s:=0;
for i:=1 to 10 do
s:=s+a[i];
i:=3;
while i<=n do begin
a[i]:=s;
i:=i+3;
end;