Заполнить массив а(15) ручным и посчитать в нем количество отрицательных элементов. на qbas,

Question

Информатика: Заполнить массив а(15) ручным и посчитать в нем количество отрицательных элементов. на qbas,

irina707 · Accepted Answer

Const n=20; var a: array[1..20] of integer = ( 20, 9, 24, 12, 23, 24, 21, 17, 1,                   15, 25, 8, 21, 2, 6, 4, 12, 16, 8, 13);                 i,j,k: integer; begin   for i:=1 to n-1 do   for j:=i+1 to n do   if a[j] a[i] then swap(a[i],a[j]);   writeln( отсортированный массив: );   for i:=1 to n do write(a[i], );   writeln;   k:=0;   i:=1; j:=2;   repeat     if a[j]-a[i] =3 then     begin       writeln( пара: ,a[i], ,a[j]);           i:=j;       inc(k);     end;       inc(j);   until...

MOGZ ответил