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

[tanyalove]

Сообщение от ROMA2PVT

http://programmersforum.ru/showthread.php?t=98845
http://programmersforum.ru/showthread.php?t=98812
Нет что вы я вру.

Если что таук то там другие задачи

[tanyalove]

пожалуйста 2 задачи

[ROMA2PVT]

-I-

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.

-II-

uses crt;
var
    a: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('a[',i,']:=');
     readln(a[i]);
    end;
    writeln('Исходный массив: ');
    for i:=1 to n do
    begin
    write(' ',a[i]:1:2,' ');
    end;
pr:=1;
i:=4;
while i<=n do
begin
pr:=pr*a[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 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
begin
sum:=0;
for i:=1 to 5 do
begin
sum:=sum+a[i];
end;
writeln('Сумма первых пяти элементов массива:=',sum:1:3);
end;
readln
end.

Да уж...Спасибо прям увидел аж десять раз.