Міні твір з смайликами наприклад зранку я прокинувся і☺

C++

#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian"); // Добавление русского языка
int N;
int *A, *B;
int sub = 0, mult = 1;

cout << "Введите размерность массивов: ";
cin >> N;

A = new int[N];
B = new int[N];

cout << "Инициализация массива A (введите " << N << " элементов): ";
for (int i = 0; i < N; i++)
{
    cin >> A[i];
}

cout << "Инициализация массива B (введите " << N << " элементов): ";
 for (int i = 0; i < N; i++)
{
    cin >> B[i];
}

// Подсчет суммы и произведения всех элементов массива
for (int i = 0; i < N; i++)
{
  sub = sub + A[i] + B[i];
 mult = mult*A[i] * B[i];
}

cout << "Сумма всех элементов массивов: " << sub << endl;
cout << "Произведение всех элементов массивов: " << mult << endl;

return 0;
}

program nomerstolb;

Var a: array[1..50,1..50] of integer;

 

b: array[1..50] of integer;

i, j, m, n, max, jmax: integer;

Begin

Write(‘сколько строк?’); Readln(m);

Write(‘сколько столбцов?’); Readln(n);

For i:=1 to m do

begin

For j:=1 to n do

begin

write(‘a[‘,i,’,’,j,’]=’); readln (a[i,j]);

end;

for j:=1 to m do

begin

b[j]:=0;

for i:=1 to n do

if a[i,j]<0 then b[j]:=b[j]+1;

end;

max:=b[1]; jmax:=1;

For j:=2 to n do

begin

if b[j]>max then

begin

max:=b[j]; jmax:=j;

end;

end;

writeln(‘Наибольшее количество отрицательных элементов в ‘;jmax ; ‘столбце’);

end;

end.

9. Упорядочить каждый столбец матрицы по возрастанию. Массив размером МхN, элементы которого задаются датчиком случайных чисел на интервале [-17;26].

 

program porydok;

Var a: array[1..50,1..50] of integer;