Проггамма паскаль найти среднее арифметическое не равных нулю элементов масивные x(n, m) и подсчитать количество элементов с неподлжительными значениями

Program abc;Const  n=3;  m=3;Var  a:array[1..n,1..m] of integer;  b,y,i,j,sum:integer;  srd:real;  Begin  Writeln('Введите числа массива: ');    For i:=1 to n do      For j:=1 to m do      Begin        Write('a[',i,',',j,']= ');        Readln(a[i,j]);        if a[i,j]>0 then           begin             sum:=sum+a[i,j];            inc(b);          end         else          If a[i,j]<0 then            Inc(y);       End;     If sum>0 then      begin       srd:=sum/1      b;      Writeln('Среднее =',srd);      end      else      Writeln('Нет положительных членов массива');     If y>0 then      begin       Writeln('Количество отрицательных элементов =',y);      end      else      Writeln('Нет отрицательных членов массива');End.

Для установки парольной защиты в Ворд выполните следующие действия:

В документе Word войдите в меню «Файл».

В разделе «Сведения» кликните по кнопке «Защита документа».

В открывшемся меню нажмите на пункт «Зашифровать с использованием пароля». Придумайте пароль и файл защищен.

Объяснение:

Для установки парольной защиты в Ворд выполните следующие действия:

В документе Word войдите в меню «Файл».

В разделе «Сведения» кликните по кнопке «Защита документа».

В открывшемся меню нажмите на пункт «Зашифровать с использованием пароля». Придумайте пароль и файл защищен.

условие – выражение логического типа.

Цикл может не выполняться ни разу, если значение логического выражения сразу же оказывается ложь.

Серия команд, находящихся между begin и end, выполняются до тех пор, пока условие истинно.

Для того чтобы цикл завершился, необходимо, чтобы последовательность инструкций между BEGIN и END изменяла значение переменных, входящих в условие.

Цикл с постусловием (иначе цикл до) имеет вид:

Объяснение:

условие – выражение логического типа.

Цикл может не выполняться ни разу, если значение логического выражения сразу же оказывается ложь.

Серия команд, находящихся между begin и end, выполняются до тех пор, пока условие истинно.

Для того чтобы цикл завершился, необходимо, чтобы последовательность инструкций между BEGIN и END изменяла значение переменных, входящих в условие.

Цикл с постусловием (иначе цикл до) имеет вид: