Заполнить двумерный массив случайными числами до 50, найти кол-во четных элементов выше главной диагонали

Вопрос от пользователя
Максимильянка

Заполнить двумерный массив случайными числами до 50, найти кол-во четных элементов выше главной диагонали

Ответ
Валюша

Const

N = 3;

Var

A:array[1 … N, 1 … N] of integer;

i, j, k:integer;

Begin

Randomize;

WriteLn (‘Исходный массив A (‘, N,’,’, N,’) : ‘);

k:=0;

For i: = 1 to N do

Begin

For j: = 1 to N do

Begin

A[i, j]:=random (50);

Write (A[i, j]:4);

if (j>i) and (A[i, j] mod 2 = 0) then k:=k+1;

End;

WriteLn;

End;

WriteLn (‘k = ‘, k);

End.

Предыдущая
Вопрос-ответВ магазин привезли 300 единиц товара, 30% этого количества продали в первый день, 50% остатка продали во второй день, а в третий день 75% от того, что осталось ...
Следующая
Вопрос-ответПлан описания Японии
Помогли? Поставьте оценку, пожалуйста.
Плохо
0
Хорошо
0
Супер
0
Спринт-Олимпик.ру
Мы в ВК, подпишись на нас!

Подпишись на нашу группу в ВКонтакте, чтобы быть в курсе выхода нового материала...

Вступить
×