Нужно сделать алгоритм(блок-схему) для программы: const k = 14; var n: array[1..k] of integer; sum, i, kpol: integer; p: real; begin randomize; kpol : = 0; sum : = 0; p : = 1; for i : = 1 to k do begin n[i] : = random(23) - 6; write(n[i]: 4); if (i mod 2 = 0) and (n[i] > 0) then inc(kpol); if n[i] < 0 then sum : = sum + n[i]; if (i mod 3 = 0) and (n[i] > 0) then p : = p * n[i]; end; writeln; writeln('количество положительных элементов, стоящих на чётных местах: ', kpol); writeln('сумма элементов, имеющих отрицательные значения: ', sum); writeln('произведение положительных элементов массива, стоящих на местах, номера которых кратны трём: ', p); end.

Блок схема по ГОСТ 19.701-90 (ISO 5807-85) - во вложении.

10 CLS
20 REM Определяет количество положительных и отрицательных элементов массива
30 INPUT "Введите количество элементов в массиве N="; N
40 DIM A(N)
50 REM Ввод элементов массива
60 FOR I = 1 TO N
70 PRINT "Номер"; I;
80 INPUT "Значение элемента массива ="; A(I)
90 NEXT I
110 REM Нахождение количества положительных и отрицательных элементов массива
120 K = 0: S = 0
130 FOR I = 1 TO N
140 IF A(I) > 0 THEN K = K + 1
150 IF A(I) < 0 THEN S = S + 1
160 NEXT I
170 REM Вывод результатов
180 PRINT "Количество положительных элементов ="; K
190 PRINT "Количество отрицательных элементов ="; S
200 END

В таком виде программа была выполнена в среде LB Booster - бесплатной версии со входным языком Liberty BASIC. Сама же Liberty BASIC является коммерческим продуктом, в связи с чем попробовать выполнить эту программу именно в этой среде не представляется возможным.

#include<stdio.h>

 

int main()

{

   int n=3,m=3,a[50][50],i,j,k,g;  

 

   for(i=0;i<n;i++)

       for(j=0;j<m;j++)

           scanf("%d",&a[i][j]);

 

       for(j=0;j<m;++j)

       {

           g=0;

           for(i=0;i<n;++i)

               if(a[i][j]>0) ++g;

 

           if(g==n)  

           {

               for(k=j;k<m-1;++k)

                   for(i=0;i<n;++i)

                       a[i][k]=a[i][k+1];

 

                   m--;

 

               break;

           }

       }

 

                   

               for(i=0;i<n;i++)

               {

                   for(j=0;j<m;j++)

                       printf("%2d",a[i][j]);

 

                   printf("\n");

               }

 

       return 0;

 

}

Объяснение: