Программу вычислении среднего арифметического положительных элементов каждой матрицы порядка а(4, 4), в(5, 5) и с(4, 5) используя подпрограмму процедуру.
Ответы
begin
var a:=ArrRandom(100,-10,10);
a.Println;
Writeln(a.Where(x->x>0).Count,' положительных, ',
a.Where(x->x<0).Count,' отрицательных')
end.
Тестовое решение:
4 -6 0 8 2 -2 -1 -8 -6 8 -3 7 4 -7 -5 9 0 -3 -7 1 0 -4 6 3 8 -10 4 9 3 5 8 5 5 8 10 4 -8 3 8 8 -9 2 7 -8 -7 -5 2 -9 0 9 -7 7 -2 -6 7 -2 -1 7 -10 2 4 1 -1 0 10 3 -8 6 -6 2 6 7 -1 -4 -1 8 0 3 0 2 -2 2 -1 5 1 -9 -4 1 -9 1 -6 -5 3 -4 -7 1 -7 -3 -7 1
51 положительных, 42 отрицательных
program actors;
var
i: integer;
mas: array [1..10] of integer;
begin
for i := 1 to 10 do
begin
read(mas[i]);
end;
for i := 1 to 10 do
begin
if (mas[i] >= 9) and (mas[i] <= 11) then
writeln('Элемент: ', i, ' Значение: ', mas[i]);
end;
end.
Объяснение:
program actors; // Название программы
var
i: integer; // Целочисленная переменная счетчик для массива
mas: array [1..10] of integer; // Целочисленный массив с 10-ю элементами
begin // Начало программы
for i := 1 to 10 do // Идем с первого по десятый индексы
begin // Начало цикла
read(mas[i]); // Считываем значение с клавиатуры
end; // Конец цикла
for i := 1 to 10 do // Идем с первого по десятый индексы
begin // Начало цикла
if (mas[i] >= 9) and (mas[i] <= 11) then // Если значение элемента массива mas с индексом i ≤ 11 И ≥ 9, тогда
writeln('Элемент: ', i, ' Значение: ', mas[i]); // Выводим индекс и значение элемента
end; // Конец цикла
end. // Конец программы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
function Avg(a:array[,] of integer):real;
begin
var s:=0; var k:=0;
foreach var e:integer in a do
if e>0 then begin s+=e; Inc(k) end;
if k>0 then Result:=s/k else Result:=1e-100;
end;
begin
var A:=MatrixRandom(4,4,-50,50); Writeln(A);
Writeln('Среднее арифметическое положительных равно ',Avg(A):0:3);
var B:=MatrixRandom(5,5,-30,30); Writeln(B);
Writeln('Среднее арифметическое положительных равно ',Avg(B):0:3);
var C:=MatrixRandom(4,5,-25,38); Writeln(C);
Writeln('Среднее арифметическое положительных равно ',Avg(C):0:3);
end.
Тестовое решение:
[[35,35,5,-47],[14,34,35,-13],[25,-5,35,-29],[-7,10,-12,12]]
Среднее арифметическое положительных равно 24.000
[[-12,-17,-10,19,14],[20,17,-27,-2,16],[-3,-21,30,2,10],[5,-3,-17,-3,18],[0,-26,29,1,-22]]
Среднее арифметическое положительных равно 15.083
[[-5,-11,17,-4,15],[15,17,-24,36,15],[-8,-3,-22,28,-25],[-21,6,12,31,-1]]
Среднее арифметическое положительных равно 19.200