Дано c и d. если c=d, то вычислить:
z=c^2+ cos d÷0,17. если cd, то вычислить y= 1+n÷5 где n - натуральное число, изменяющееся от 1 до 25. результат напечатать.

#include <stdlib.h> //Библиотека для рандома#include <ctime>
#define MAX_SIZE_M 10#define MAX_SIZE_N 10#define MAX_RAND 100#define MIN_RAND 1

void main(){    int a[MAX_SIZE_N][MAX_SIZE_N];// объявили массив     srand(time(NULL));    //Заполнение массива    for(int i = 0; i < MAX_SIZE_N; i++)       for (int j = 0; j < MAX_SIZE_M; j++)          a[i][j] = MIN_RAND + rand() % MAX_RAND;
   int sum = 0;    //Считаем сумму    for (int i = 0; i < MAX_SIZE_N; i++)       for (int j = 0; j < MAX_SIZE_M; j++)          if (a[i][j] % 2 == 1)          {            sum += a[i][j] * a[i][j];          } }

// PascalABC.NET 3.2, сборка 1341 от 20.11.2016
begin
  var a:=ArrRandom(15,-10,30); a.Println;
  var b:=ArrRandom(25,-10,30); b.Println;
  var ma:=a.Where(x->x.IsEven).Max;
  var mb:=b.Where(x->x.IsEven).Max;
  if ma>mb then
    WritelnFormat('Максимум четных 1-го массива {0} больше 2-го {1}',ma,mb)
  else
    if mb>ma then
      WritelnFormat('Максимум четных 1-го массива {0} меньше 2-го {1}',ma,mb)
    else Writeln('Максимумы четных элементов в массивах равны ',ma)
end.

Пример
-2 30 -1 19 16 26 21 24 5 19 -3 28 10 11 -9
14 6 -2 28 26 4 8 -4 -7 28 -4 10 -9 6 29 -10 8 9 26 5 12 23 18 9 20
Максимум четных 1-го массива 30 больше 2-го 28