1. задать двумерный массив (5 х5) случайными значениями от 5 до 10 включительно. В каждой строке найди количество элементов, значения которых >7.

2. задать двумерный массив (3 х3) с клавиатуры, поменять значения элементов 1 строки с последней.

1.

uses crt;

const n=5;

var i, j, ans:integer;

a:array[1 ... n, 1 ... n] of integer;

begin

randomize;

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i, j]:=random (5,10) ;

write (a[i, j],' ') ;

end;

writeln () ;

end;

for i:=1 to n do

begin

ans:=0;

for j:=1 to n do

begin

if a[i, j]>7 then

ans:=ans+1;

end;

writeln ('In ', i,': ', ans) ;

end;

end.

2.

uses crt;

const n=3;

var i, j, t:integer;

a:array[1 ... n, 1 ... n] of integer;

begin

writeln ('Input array:') ;

for i:=1 to n do

for j:=1 to n do

read (a[i, j]) ;

for j:=1 to n do

begin

t:=a[1, j];

a[1, j]:=a[3, j];

a[3, j]:=t;

end;

for i:=1 to n do

begin

for j:=1 to n do

write (a[i, j],' ') ;

writeln () ;

end;

end.