DIM x(20) AS INTEGER
RESTORE
FOR i = 1 TO 20
READ x(i)
NEXT
s = 0
FOR i = 1 TO 20
IF x(i) > 0 THEN
s = s + x(i)
END IF
NEXT
PRINT "s="; s
END
DATA -3,9,-8,6,6,5,0,-7,9,18
DATA 4,-7,9,7,5,-9,-6,6,3,8
Var a,b,c,d:integer;beginc:=0; //счетчик положительных чиселd:=0; //счетчик отрицательных чиселa:=0; // счетчик цикла, чтобы после ввода 5 чисел выйти из негоwriteln('введите 5 чисел');while a<>5 do beginreadln(b);if b>=0 then c:=c+1else d:=d+1;a:=a+1;end;writeln('положительных чисел ',c);writeln('отрицательных чисел ', d);end.
Вот получилось так, надеюсь понятно.
Var
a: array[1..6]of integer;
i,m: integer;
begin
for i:=1 to 6 do
read(a[i]);
writeln(' ');
For i:=2 to 6 do
if (a[i]<0) and ((i mod 2) =0) then
for m:=i downto 2 do
swap(a[m],a[m-1]); for i:=1 to 6 do
write(a[i]:2);
<span>end.
abc pascal</span>