Массивы

uses
  crt;
const
  str=3;{êîëè÷åñòâî ñòðîê}
  sto=3;{êîëè÷åñòâî ñòîëáöîâ}
var
  a:array [1..str,1..sto] of integer;
  i,j,sum:integer;
begin
  clrscr;
  {çàïîëíÿåì è âûûâîäèì ìàññèâ}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to str do
  begin
    for j:=1 to sto do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  sum:=0;
  for i:=1 to str do
    inc(sum,a[i,2]);
  writeln('Ñðåäíåå àðèôìåòè÷åñêîå: ',sum/str)
end.

uses
  crt;
const
  n=10;
var
  a:array[1..n]of integer;
  i,sum,count:integer;
begin
  sum:=0;
  count:=0;
  {çàïîëíÿåì ñ÷èòàåì âûâîäèì ìàññèâ}
  writeln('Èñõîäíûé ìàññèâ:');
  write('[ ');
  for i:=1 to n do
  begin
    a[i]:=random(8)-4;
    write(a[i],' ');
    if odd(i)=false then
    begin
      inc(sum,a[i]);
      inc(count)
    end;
  end;
  writeln(']');
  if count>0 then
    writeln('Ñðåäíåå àðèôìåòè÷åñêîå: ',sum/count)
  else
    writeln(' ìàññèââå íåò ÷åòíûõ!')
end.

uses
  crt;
const
  str=4;{êîëè÷åñòâî ñòðîê}
  col=4;{êîëè÷åñòâî ñòîëáöîâ}
var
  a:array [1..str,1..col] of integer;
  i,j,max,temp,tempi,tempj:integer;
begin
  clrscr;
  {çàïîëíÿåì è âûûâîäèì ìàòðèöó}
  writeln('Èñõîäíàÿ ìàòðèöà:');
  for i:=1 to str do
  begin
    for j:=1 to col do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j]:2,' ')
    end;
    writeln
  end;
  {íàõîäèì ìàêñèìóì êàæäîé ñòðîêè}
  max:=abs(a[1,1]);
  tempi:=1;
  tempj:=1;
  for i:=1 to str do
    for j:=1 to col do
      if abs(a[i,j])>max then
      begin
        max:=a[i,j];
        tempi:=i;
        tempj:=j
      end;
  end;
  writeln('a[',tempi,',',tempj,'] ìàêñèìàëüíûé ïî ìîäóëþ ýëåìåíò è îí ðàâåí ',max);
  {ìåíÿåì ñòîëáöû}
  for i:=1 to str do
  begin
    temp:=a[i,1];
    a[i,1]:=a[i,col];
    a[i,col]:=temp
  end;
  {âûâîäèì ìàòðèöó}
  writeln('Ïîëó÷åííàÿ ìàòðèöà:');
  for i:=1 to str do
  begin
    for j:=1 to col do
      write(a[i,j]:2,' ');
    writeln
  end;
end.