#include <iostream>
#include <cstdlib>
using namespace std;
int main(){
int a[n][m];
int minA[m];
int min;
for(int i = 0; i < n; i++){
for(int j = 0; j < m; j++){
a[i][j] = rand()% 50 - 10;
cout<<a[i][j]<<" ";
}
cout<<endl;
}
cout <<"Min:"<<endl;
for(int j = 0; j < m; j++){
min = 9999;
for(int i = 0; i < n; i++){
if((a[i][j] > 0) && (a[i][j] < min))
min = a[i][j];
}
minA[j] = min;
cout<<minA[j]<<" ";
}
int max = minA[0];
for(int j = 1; j < m; j++){
if(max < minA[j])
max = minA[j];
}
cout<<endl<<"Max = "<<max;
return 0;
}
Program help;
Uses Crt;
Const n = 10; (* Размер массива *)
Var a : Array[1..n] of Integer; (* Массив с числами *)
i : Integer;
Begin
Randomize;
ClrScr;
Writeln('Массив: ');
For i := 1 to n do
Begin
a[i] := random(601) - 300; (* Заполняем рандомными числами *)
Writeln('a[', i, '] = ', a[i]); (* Выводим на экран *)
if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then
a[i] := 0; (* Обнуляем числа кратные 3 и не кратные 5 *)
End;
Writeln('Массив после изменения: ');
For i := 1 to n do
Writeln('a[', i, '] = ', a[i]); (* Выводим на экран *)
End.