Создаем приложение, которое выводит на экран первые 15 пар чисел

Type
  mass = array[1..10, 1..10] of real;

var
  a, b, c: mass;
  n, m, i, j, n1, m1: integer;

procedure MatrA(var a: mass);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
    begin
      writeln('a[', i, ',', j, ']: ');
      readln(a[i, j])
    end
end;

procedure MatrB(var b: mass);
var
  i, j: integer;
begin
  for i := 1 to n1 do
    for j := 1 to m1 do
    begin
      writeln('b[', i, ',', j, ']: ');
      readln(b[i, j])
    end
end;

procedure Sum(a, b: mass; var c: mass);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      c[i, j] := a[i, j] + b[i, j];
end;

begin
  writeln('Введите n,m матрицы A');
  readln(n, m);
  MatrA(a);
  writeln('Введите n,m матрицы B');
  readln(n1, m1);
  MatrB(b);
  if (n1 <> n) and (m1 <> m) then
    writeln('Матрицы сложить нельзя')
  else begin
    Sum(a, b, c);
    writeln('A+B');
    for i := 1 to n do
    begin
      for j := 1 to m do
        write(c[i, j]:1:3, ' ');
      writeln
    end
  end;
  readln;
end.

#include <iostream>

#include <time.h>

using namespace std;

int main()

{

srand(time(NULL));

int N[100];

int sum = 0;

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

 N[i] =rand();

}

cout << "vse elementu" << endl;

for(int i=0;i<100;i++)

 cout << N[i] << " ";

cout << endl;

cout << "nechetnue elementu" << endl;

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

 if(N[i]%2!=0)

  sum = sum + N[i];

  cout << N[i] << " ";

}

cout << endl;

cout<< "suma nechetnuh =  " << sum << endl;

system("pause");

return 0;

}

Объяснение:

Написал программу так, что-бы сначала выводило 100 элементов(рандом чисел), потом выводило нечетные элементы, потом выведет уже суму нечетных