В одномерном массиве из 7 элементов найти количество положительных элементов.

См. Комментарии в строках с //. Пишу с телефона, поэтому не очень удобно комментировать.

Объяснение:

// Подключаем хедер //iostream

#include <iostream>

// Будет использоваться //пространство имен std

using namespace std;

#pragma argsused

// функция main

int main(int argc, char* argv[])

{

// объявление

// двумерного массива 4 //на 4

int massiv[4][4];

int n=4;

// цикл для ввода данных //массива

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

for(int j=0;j<n;j++)

{

cout<<"Vvedite el-t matrix["<<i+1<<"]["<<j+1<<"] ";

cin>>massiv[i][j];

}

// цикл для вычисления

//сумм по столбцам

for(int j=0;j<n;j++)

{ int sum=0;

bool flag=true;

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

{

sum+=massiv[i][j];

if(massiv[i][j]<0)flag=false;

}

// Если не было

//отрицательных

//элементов то выводим //сумму

if(flag==true)

{

cout<<"Summa "<<j+1<<" stolbca = "<<sum;

}

}

// в этом цикле ничего не происходит

int summin=0;

for(int k=0;k<n-1;k++)

{

int sum=0;

for(int j=n-1;j>=0;j--)

{

for (int i=0;i<n-1;i++)

{

}

}

if(summin>sum)summin=sum;

}

return 0;

}​

const

 n=6;

 m=8;

var

 a : array [0..m, 0..n] of integer;

 i, j, SPlus : integer;

begin

 writeln('Матрица А');

 randomize;

 SPlus := 0;

 for i:=0 to m-1 do begin

   for j:=0 to n-1 do begin

     a[i,j] := random(100)-50;

     if a[i, j]>0 then inc(SPlus);

     write(a[i, j], '  ');

   end;

   writeln();

 end;

 Writeln('Кол-во элементов > 0  =', SPlus);

end.

const

 n=7;

 m=3;

var

 a, b, c : array [0..n, 0..m] of integer;

 i, j, min, SPlus, Ip,Jp : integer;

begin

 writeln('Матрица А');

 randomize;

 SPlus := 0;

 for j:=0 to m-1 do begin

   for i:=0 to n-1 do begin

     a[i,j] := random(100)-50;

     b[i,j] := random(100)-50;

     write(a[i, j], '  ');

   end;

   writeln();

 end;

 writeln();

 Writeln('Матрица B');

 SPlus := -100;

 for j:=0 to m-1 do begin

   for i:=0 to n-1 do begin

     c[i,j]:= a[i,j]+b[i,j];

     if SPlus<c[i,j] then begin

       SPlus := c[i,j];

       Ip := i;

       Jp := j

     end;

     write(b[i, j], '  ');

   end;

   writeln();

 end;

 writeln('--------------------');

 writeln('C[',Ip, ',', Jp,']=', SPlus);

end.