2-3 примера фактов из области , или биологии.

1) жизнь достоверна известна только на земле 2) земля вертится вокруг своей оси

примечание: библиотека locale.h используется для корректного изображения языка в консоли. библиотека stdlib.h необходима для использования функции "system(pause)", которая используется в конце программы. не позволяет консоли после выполнения основной программы закрыться.

я к тому, что фактически, используется только iostream

#include "iostream"

#include "stdlib.h"

#include "locale.h"

using namespace std;

int main(){

setlocale(lc_all, "russian");

int n, m;

cout < < "введите кол-во строк(n): "; cin > > n;

cout < < "введите кол-во столбцов(m): "; cin > > m;

int a[n][m];

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

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

  cout < < "элемент [" < < i < < "]" < < "[" < < j < < "]   =   "; cin > > a[i][j];

  }

}

cout < < "вывод массива" < < endl;

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

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

    cout < < " " < < a[i][j] < < " ";  

  }

  cout < < endl;

}

for(int i = 0; i < m; i++){

  int min = a[0][i];

  int max = a[0][i];

  for(int j = 1; j < n; j++){

    if(min > a[j][i]){

      min = a[j][i];

    }else if(max < a[j][i]) max = a[j][i];

  }

  cout < < "столбец " < < i+1 < < " содержит (min, max): " < < "(" < < min < < "," < < max < < ")";  

  cout < < endl;

}

system("pause");

return 0;

}

1.

const n=5;

var a: array [1..n] of integer;

i: integer;

begin

write('       исходный массив: ');

for i: =1 to n do

begin

a[i]: =random(21)-10;

write(a[i]: 3,' ');

if a[i] mod 2 = 0 then a[i]: =a[i]-3

end;

writeln;

write('преобразованный массив: ');

for i: =1 to n do write(a[i]: 3,' ')

end.

2.

const n=8;

var a: array [1..n] of integer;

i,s: integer;

begin

write('массив: ');

for i: =1 to n do

begin

a[i]: =random(21)-10;

write(a[i]: 3,' ');

s: =s + a[i]

end;

writeln;

write('сумма всех элементов массива: ',s)

end.

3.

const n=7;

var a: array [1..n] of integer;

i,p: integer;

begin

p: =1;

write('массив: ');

for i: =1 to n do

begin

a[i]: =random(21)-10;

write(a[i]: 3,' ');

if a[i] > 0 then p: =p * a[i]

end;

writeln;

write('произведение положительных элементов массива: ',p)

end.