Вычислить средние арифметические значения неотрицательных элементов каждой строки матрицы [n; m]. построить блок-схемуprogram qwe; var n,m: integer; a: array[1..10,1..10] of integer; sum: word; count, i, j: byte; beginwriteln('введите размер матрицы'); readln(n); readln(m); randomize; for i: =1 to n do begin sum : = 0; count : = 0; for j: =1 to m do begin a[i,j] : = random(100) - 50; write(a[i,j]: 4); if a[i,j] > = 0 then begin sum : = sum + a[i,j]; count : = count + 1; end; end; writeln(' среднее ', sum/count: 4: 2); end; end.

Const
   N = 3;
Var
   A:array[1..N,1..N] of integer;
   i,j:integer;
   Min,S:real;
Begin
Randomize;
WriteLn('Исходная матрица:');
For i:= 1 to N do
    Begin
    For j:= 1 to N do
        Begin
        A[i,j]:=random(21)-10;
        Write(A[i,j]:3,' ')
        End;
    WriteLn
    End;
WriteLn;
Min:=0;
For i:= 1 to N do
    Min:=Min+Abs(A[i,1]);
For j:= 2 to N do
    Begin
    S:=0;
    For i:= 1 to N do
        S:=S+Abs(A[i,j]);
    if S<Min then Min:=S;
    End;
WriteLn('Min = ',Min);
End.

Пример работы программы:

Исходная матрица:
  8   3   0
  1   3  -5
  3 -10  -6

Min = 11

Const
   N = 30;
Var
   T:array[1..N] of integer;
   i,k:integer;
Begin
Write('Температура в течение месяца:');
k:=0;
For i:= 1 to N do
    Begin
    T[i]:=random(20)-15;
    Write(' ',T[i]);
    if T[i] < 0 then k:=k+1;
    End;
WriteLn;
WriteLn('Количество дней, когда температура опускалась ниже нуля: ',k);
End.

Пример работы программы:

Температура в течение месяца: -3 -5 -4 1 -11 -5 0 2 2 4 3 -6 -7 -4 -14 -11 -15 -14 -15 0 -7 -14 -13 -13 -12 -1 -3 -13 -15 -5
Количество дней, когда температура опускалась ниже нуля: 23