Предмет: Информатика,
автор: SashaPisarev
Пожалуйста, помогите, ниже представлено условие задачи, попрошу представить решение в паскале.
Дан двумерный массив целых чисел. Написать программу, которая для каждой строки массива находит среднее арифметическое элементов, у которых последняя цифра нечетная.
Ответы
Автор ответа:
0
Ответ:
//--- PascalABC.NET 3.6.2 ---
begin
var Matr := MatrRandom(10, 10, -99, 99);
Matr.Println;
foreach var row in Matr.Rows do begin
Println(row.Where(p -> (p mod 10) mod 2 <> 0).Average);
end;
end.
Приложения:
Похожие вопросы
Предмет: Русский язык,
автор: iljailja12
Предмет: Русский язык,
автор: nikita20134
Предмет: Русский язык,
автор: iet
Предмет: Математика,
автор: Neekita
const n=10;m=15;
var a:array [1..n,1..m] of integer;
b:array [1..m] of real;
i,j,s,sum,k:integer;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to m do begin a[i,j]:=random(100);write(a[i,j]:3);end;
writeln;
end;
writeln;
for i:=1 to m do
begin
sum:=0;k:=0;
for j:=1 to n do
begin
s:=a[j,i] mod 10; //write(' ',s);
if s<>0 then
if a[j,i] mod s=0 then
begin
sum:=sum+a[j,i];inc (k);
end;
end;
b[i]:=sum/k;
end;
for i:=1 to m do write(b[i]:5:1);
end.