Примечание: библиотека locale.h используется для корректного изображения русского языка в консоли. библиотека stdlib.h необходима для использования функции "system(pause)", которая используется в конце программы. Не позволяет консоли после выполнения основной программы закрыться.
Я к тому, что фактически, используется только iostream
Примечание: библиотека 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.