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]; } }
4,8(91 оценок)
Ответ:
04.06.2020
// 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.
#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]; } }