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;beginrandomize;for i:=1 to n dobeginfor j:=1 to n dobegina[i,j]:=random(5,10);write(a[i,j],' ');end;writeln();end;for i:=1 to n dobeginans:=0;for j:=1 to n dobeginif a[i,j]>7 thenans:=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;beginwriteln('Input array:');for i:=1 to n dofor j:=1 to n doread(a[i,j]);for j:=1 to n dobegint:=a[1,j];a[1,j]:=a[3,j];a[3,j]:=t;end;for i:=1 to n dobeginfor j:=1 to n dowrite(a[i,j],' ');writeln();end;end.