Паскаль. написать пограмму которая заполняет массив случайными числами от 1 до 10. в ряду 10 чисел. вот программа: var a: array [1..10] of integer; i: integer; begin randomize; for i: = 1 to 10 do begin a[i]: =random (11); write ( a[i]: 4); end; end. : дописать эту программу, чтобы она выдавала кол-во четных и нечетных примеров массива.

Uses crt;
var a: array [1..10] of integer;
i,s,k:integer;
begin
clrscr;
randomize;
for i:= 1 to 10 do
begin
a[i]:=random (11);
write ( a[i]:8);
if a[i] mod 2 = 0 then s:=s+1 else k:=k+1;
end;
writeln('Кол-во четных = ',s);
writeln('Кол-во нечетных = ',k);
end.

#include <stdlib.h>
#include <iostream>
#include <iomanip>
using namespace std;

int main() {
const int n = 3;
const int m = 4;
int a[n][m];
int s=0;

cout << "Исходный массив" <<endl;
srand(time(0));
for (int i = 0; i < n; i++){
 for (int j = 0; j < m; j++){
a[i][j]=10+(51.0 / RAND_MAX) * rand();
cout << fixed << setw (7) << a[i][j];
 }
cout <<endl;
}
 for (int j = 0; j < m; j++)
  s = s+a[0][j]+a[n-1][j];
 for (int i = 1; i < n-1; i++)
  s = s+a[i][0]+a[i][m-1];
cout << "s = " << s << endl;
}

Пример:
Исходный массив
  55 33 24 41
  50 60 41 11
  17 33 45 50
s = 359

#include <iostream>#include <cstdlib>using namespace std;
int main(){
int *enter = new int;
cout << "Enter x: "; cin >> *enter; const int *x = new int(*enter); *enter = 0; cout << "Enter y: "; cin >> *enter; const int *y = new int(*enter);
int *mat = new int[*x][*y];
for (int i = 0; i < *x; i++){ for (int j = 0; j < *y; j++){ cout << "Enter [" << i << "][" << j << "]: "; cin >> mat[i][j]; }; };
int *max = new int(0);
for (int i = 0; i < *x; i++){ if (mat[*x] > *max){ *max = mat[*x]; }; };}