Предмет: Информатика,
автор: Sergoflakos
Помогите пожалуйста!!!
Вычислить суммы квадратов нечётных чисел случайно сгенерированных двумерным массивом (от 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
Похожие вопросы
Предмет: Математика,
автор: babijkata2
Предмет: Русский язык,
автор: faut85
Предмет: Геометрия,
автор: svetlanaafanasevna77
Предмет: Математика,
автор: BellaKamarova
Предмет: Алгебра,
автор: antipinasofia