Примечание: библиотека 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;
}
begin
var N: array of integer;
SetLength(N,16);
N.FillRandom(1,11);
var Q:=N.FindAll(x -> x mod 2 = 0).Length;
writeln('Количество четных элементов:',Q);
N.Sort; Reverse(N);
for var l:=N.Low to N.High do N[l]:=(N[l] mod 2 = 0)? Q:N[l];
writeln('Полученный массив: ',N);
end.
Объяснение:
var N: array of integer; Вводим наш массив с числами
SetLength(N,16); Устанавливаем его длину, 0 - первый элемент, 15 - последний, итого 16 ячеек
N.FillRandom(1,11); Заполняем массив случайным образом числами от 1 до 11
var Q:=N.FindAll(x -> x mod 2 = 0).Length; Находим количество четных элементов. x mod 2 остаток от деления каждого элемента на 2
{Процедура FindAll заносит все значения, по условию в отдельный массив, через .Length смотрим его длину}
writeln('Количество четных элементов:',Q);
N.Sort; Reverse(N); N.Sort - сортирует массив по возрастанию, а reverse() меняет последовательность на противоположную, соответственно, теперь он отсортирован по убыванию
for var l:=N.Low to N.High do N[l]:=(N[l] mod 2 = 0)? Q:N[l]; От начала массива и до его конца, над каждым элементом смотрим - четный он или нет, если четный - заменяем на Q (число элементов)
writeln('Полученный массив: ',N);
