В каждой строке двумерной матрицы (n, m), состоящей их произвольных чисел, вычислить количество, сумму и среднее арифметическое отрицательных элементов
10-11 класс
|
program asd;
Const n=4;
m=4;
var A:array[1..n,1..m] of integer;
i,j,k,s:integer;
sr:real;
BEGIN
For i:=1 to n do
begin
for j:=1 to m do
begin
A[i,j]:=5-Random(15);
Write(A[i,j]:4);
end;
Writeln();
end;
For i:=1 to n do
begin
s:=0; k:=0;
for j:=1 to m do
begin
If A[i,j]<0 then
begin
s:=s+A[i,j];
inc(k);
sr:=s/k;
end;
end;
Writeln('Строка: ',i,'; Сумма: ',s,'; Количество: ',k,'; Ср. ариф.: ',sr:2:2);
end;
END.
Другие вопросы из категории
1) 96
2) 0,114
3) 34.675
4) 27
5) 0.65
6) 0.25
Из данного массива А трехзначных чисел записать в массив В элементы, содержащие цифру 5.
Исходные данные на картинке. Заранее Спасибо!
Читайте также
Ввести размерность матрицы и значения ее элементов.
Определить максимальный и минимальный элемент. Переставить их местами.
Найти среднее арифметическое отрицательных элементов в i-ой строке.
функцию для нахождения номеров строк, произвольной матрицы, не содержащей нулей. Составить на языке паскаль.
диагонали. нахождение в каждой строке массива наименьшего элемента и его перестановку с элементом стоящим на главной диагонали оформить в виде подпрограммы
1. напишите программу формирования массива размером 5*5 с помощью датчика случайных чисел. Замените в нем нечетные значения элементов максимальным. Выведите на экран исходный и измененный массивы.
2. Составьте программу формирования и вывода на печать одномерного массива, состоящего из максимальных элементов строк двумерного массива, заданного с помомщью датчика случайных чисел
индексов элементов главной диагонали.Выведите на экран исходный и измененный массивы (программа на языке Паскаля)
2)Составьте программу формирования и вывода на экран одномерного массива, состоящего из удвоенных минимальных элементов строк двумерного массива, заданного с помощью датчика случайных чисел