Дан двумерный
5-9 класс
|
массив a, размером (n´n)(или квадратная матрица а). Найти
среднее арифметическое положительных элементов, верхней треугольной матрицы,
расположенной выше главной диагонали,
Паскаль
---
uses crt;
var a: array[1..100,1..100] of integer;
x,y,sum,k,n:integer;
begin
write('Введите n: ');
readln(n);
clrscr;
for x:=1 to n do begin
for y:=1 to n do begin
a[x,y]:=random(21)-10;
write(a[x,y]:4);
end;
writeln;
end;
k:=0;
Sum:=0;
for x:=1 to n do
for y:=x+1 to n do
if a[x,y]>0 then begin
Sum:=Sum+a[x,y];
inc(k);
end;
writeln;
if k<>0 then write(sum/k:4:2);
end.
Другие вопросы из категории
магических милях 8 км .За скоко минут до назначенного времени необходимо выехать Пете , чтобы добраться до места встречи вовремя ?? А) 15мин Б) 30мин В) 45мин Г) 60мин
Читайте также
Дан двумерный массив целых чисел (3 строки, 5 столбцов).
Заполните его с клавиатуры.поменяйте местами 1-й элемент 3-го столбца и 2-й элемент 3-й строки;