Предмет: Информатика, автор: Sergoflakos

Помогите пожалуйста!!!
Вычислить суммы квадратов нечётных чисел случайно сгенерированных двумерным массивом (от 1 до 100)

Ответы

Автор ответа: rezakk511
0
какой язык програмирования?

Автор ответа: rezakk511
0
cin>>n; int m; cin >> m
Автор ответа: Sergoflakos
0
У меня Pascal
Автор ответа: Sergoflakos
0
Pascal ABC
Автор ответа: rezakk511
0
тогда ххэ
Автор ответа: Sergoflakos
0
Жаль
Автор ответа: Аноним
0
// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
  var n:=ReadInteger('n=');
  var a:=MatrixRandom(n,n,1,100);
  for var i:=0 to n-1 do begin
    for var j:=0 to n-1 do Write(a[i,j]:4);
    Writeln
    end;
  var s:=0;
  foreach var x in a do
    if x.IsEven then s+=x*x;
  Writeln('Сумма квадратов нечетных ',s);
end.

Пример
n= 5
  79  56   2  39  24
  16  91  85  61   6
  59  61  47   9  52
  71   9  43  81  66
  57  55   7  82  97
Сумма квадратов нечетных 17792

Похожие вопросы
Предмет: Математика, автор: BellaKamarova