Помогите пожалуйста!!!
Вычислить суммы квадратов нечётных чисел случайно сгенерированных двумерным массивом (от 1 до 100)
Ответы
Ответ дал:
0
какой язык програмирования?
Ответ дал:
0
cin>>n; int m; cin >> m
Ответ дал:
0
У меня Pascal
Ответ дал:
0
Pascal ABC
Ответ дал:
0
тогда ххэ
Ответ дал:
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
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
Похожие вопросы
2 года назад
2 года назад
9 лет назад
9 лет назад
9 лет назад