var a: array[1..n, 1..n] of integer; i, j, s: integer; sr: real;
begin s := 0; Writeln('Исходная матрица'); for i := 1 to n do begin for j := 1 to n do begin a[i, j] := Random(256); Write(a[i, j]:5); s := s + a[i, j] end; Writeln end; sr := s / sqr(n); Writeln('Средняя яркость', sr); Writeln('Результирующая матрица'); for i := 1 to n do begin for j := 1 to n do begin if a[i, j] <= sr then a[i, j] := 0 else a[i, j] := 255; Write(a[i, j]:5) end; Writeln end end.
Program treug; var a,b,c:integer; label l1,l2; begin l1: writeln ('Укажите стороны треугольника:'); read (a,b,c); if (a<=0) or (b<=0) or (c<=0) then begin writeln ('Проверьте правильность введенных данных'); goto l1; end; if (a=b) and (a=c) and (b=c) then begin writeln ('Треугольник с указанными параметрами - равносторонний'); goto l2; end; if (a=b) or (a=c) or (b=c) then begin writeln ('Треугольник с указанными параметрами - равнобедренный'); goto l2; end; writeln ('Треугольник с указанными параметрами - разносторонний'); l2: end.
begin
var a:=MatrRandom(5,5,-10,10); a.Println(5);
writeln(a.ElementsByRow.Where(x->x>0).Average);
end.
Пример:
-3 2 -10 -5 -6
-1 0 4 -6 4
4 -4 3 -5 6
6 -10 4 2 -7
8 -6 9 -3 -1
4.72727272727273