Дан двумерный массив 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.
Class MiddleTemperature{ public static void main(String args[]){ java.util.Scanner in = new java.util.Scanner(System.in); double tSum = 0; for(int day = 0; day<7; day++){ switch(day){ case 0: System.out.print("Понедельник>>"); break; case 1: System.out.print("Вторник>>"); break; case 2: System.out.print("Среда>>"); break; case 3: System.out.print("Четверг>>"); break; case 4: System.out.print("Пятница>>"); break; case 5: System.out.print("Суббота>>"); break; case 6: System.out.print("Воскресенье>>"); break; } tSum+=in.nextInt(); } tSum/=7; System.out.print("Средняя температура за неделю: "+(int)tSum/1+"."+(int)(tSum%1.0/0.1)+(int)((tSum-(int)(tSum/0.1)/10D)/0.01)); } }
Class MiddleTemperature{ public static void main(String args[]){ java.util.Scanner in = new java.util.Scanner(System.in); double tSum = 0; for(int day = 0; day<7; day++){ switch(day){ case 0: System.out.print("Понедельник>>"); break; case 1: System.out.print("Вторник>>"); break; case 2: System.out.print("Среда>>"); break; case 3: System.out.print("Четверг>>"); break; case 4: System.out.print("Пятница>>"); break; case 5: System.out.print("Суббота>>"); break; case 6: System.out.print("Воскресенье>>"); break; } tSum+=in.nextInt(); } tSum/=7; System.out.print("Средняя температура за неделю: "+(int)tSum/1+"."+(int)(tSum%1.0/0.1)+(int)((tSum-(int)(tSum/0.1)/10D)/0.01)); } }
---
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.