Составить программу в Паскаль для решения задачи: ширина прямоугольника в 3 раза больше его длины. найти площадь прямоугольника

#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;

 

}

Объяснение:

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 является коммерческим продуктом, в связи с чем попробовать выполнить эту программу именно в этой среде не представляется возможным.