Developing.ru

Код: Выделить всё

uses crt;
const M=3;
        N=3;
var i,j:byte;
count,sum:integer;
  x:array[1..N,1..M] of integer;
begin
   count:=0;
   sum:=0;
   for i:=1 to N do 
   for j:=1 to M do
   begin
     writeln('Введите Х[',i,',',j,']');
     readln(x[i,j]);
     if (i mod 2=0) and (x[i,j]<0)
     then
     begin inc(sum,x[i,j]); inc(count); end;
   end;
   clrscr;
   for i:=1 to N do begin
      for j:=1 to M do
         write(x[i,j]:4);
      writeln;
   end;
   writeln ('Количество отрицательных элементов в четных строках - ',count,', их среднее арифметическое - ',sum/count);
end.