Найдите сумму и количество элементов каждой строки больше среднего арифметического
10-11 класс
|
Program asd;
Const n=3; m=3;
Var A:array[1..n, 1..m] of integer;
i,j,s,s1,k:integer; sr:real;
BEGIN
Writeln('Массив А: ');
For i:=1 to n do
begin
s:=0;
for j:=1 to m do
begin
A[i,j]:=Random(10);
Write(A[i,j]:2);
s:=s+A[i,j];
sr:=s/i;
end;
Writeln;
end;
Writeln;
k:=0;
For i:=1 to n do
begin
s1:=0;
for j:=1 to m do
If A[i,j]>sr then
begin
inc(k);
s1:=s1+A[i,j];
end;
Writeln('Сумма строки №',i,' : ',s1);
end;
Writeln('Сред. ариф. массива: ',sr:2:2);
Writeln('Количество: ',k);
END.
Другие вопросы из категории
нужно привести примеры перехода от порядка к хаосу в окружающем мире.
Собственно задание:
Перевести:
47 Кб -сколько будет- бит?
-процессоре
-буфере
-чипсете
-клавиатуре
-оперативной памяти
Читайте также
превышающих среднее арифметическое значение элементов массива
массива,значение которых больше среднего арифметического всех его элементов
диагонали. нахождение в каждой строке массива наименьшего элемента и его перестановку с элементом стоящим на главной диагонали оформить в виде подпрограммы
числа; • Найдите наибольшую цифру числа; • Найдите сумму цифр числа, больших 5.