БЛИН!!! Только решу задачку - Интер вырубается.....
А получилось вот что:
uses Crt;
const N=30;
type Mas=array [1..N] of integer;
var i, j , SumPol, SumOtr: integer;
A: Mas;
begin
ClrScr;
SumPol:=0;
SumOtr:=0;
WriteLn(' Sposob 1:');
WriteLn;
for i:=1 to N do
begin
A[i]:=-10+random(21);
Write (A[i]:4);
end;
WriteLn;
for i:=1 to N do
begin
if (A[i]>0) then SumPol:=SumPol+A[i];
if (A[i]<0) then SumOtr:=SumOtr+A[i];
end;
WriteLn(' SumPol =', SumPol);
WriteLn(' SumOtr =', SumOtr);
WriteLn;
WriteLn (' Sposob 2:') ;
SumPol:=0;
SumOtr:=0;
i:=1;
repeat
if (A[i]>0) then SumPol:=SumPol+A[i];
if (A[i]<0) then SumOtr:=SumOtr+A[i];
i:=i+1;
until i>30;
WriteLn(' SumPol =', SumPol);
WriteLn(' SumOtr =', SumOtr);
ReadLn;
end.
<span><em>Pascal ABC</em>
var x:integer;
begin
writeln ('Введите четырёхзначное число');
readln(x);
if (x div 1000 <> 0) and (x div 10000 = 0) then begin
if ((x div 100)=(x mod 100)) or (((x div 1000)=(x mod 10)) and (((x div 100) mod 10)=((x mod 100) div 10))) then
writeln ('Является перевёртышем') else
writeln ('Не является перевёртышем');
end else writeln ('Неверный ввод');
end.
</span><span>
</span>
begin
var a := ReadArrInteger(15);
for var i := 14 downto 0 do
Println(a[i]);
end.
название программы начинается с __ незнаю в чем компилируешь, может ругаться.
убери лишние begin end в условиях, они не нужны там
после readln
if ... then ... else END;
после каждого else if начинается, не нужны begin end, у тебя одно условие там. и одно действие
