Paskal

[Dima169]

Пожалуйста помогите решить несколько задач, срочно!(((
1. Дана квадратная матрица nxn состаящая из натуральных чисел. Зеркально отразить её элементы отнасительно главной диагонали вывести результат на экран.
2.Дана символьная строка , определить является ли она записью десятичног числа, краоного трём.
3. Дан файл f, элементы которого являются действительными числами найти сумму наибольшего и наименьшего из значений элементов.

[Nomand]

1)

uses crt;
const n=5;
var i,j:integer; a:array[1..n,1..n] of integer;
begin
clrscr;
 for i:=n downto 1 do begin
    for j:=n downto 1 do begin
    a[i,j]:=random(10);
    if i=j then write(a[n-i+1,n-j+1],'  ') else write(a[i,j],'  ');
    end;
    writeln;
 end;
 readln;
end.

2)

uses crt;
var buffer,i,code:integer; str:string;

begin
writeln('Введите число: ');
readln(str);
val(str,buffer,code);
if code<>0 then writeln('Введенное не число') else if buffer mod 3=0 then writeln('Число кратно 3!') else
writeln('Число не кратно 3!');
readln;
end.

3) При условии, того что они идут через пробел(не тестил с отрицательными).

uses crt;
var a:array[1..999] of integer; f:text; txt:string; min,max,count,code,buff,i,n:integer;
   begin
   clrscr;
    assign(f,'..\xxx.txt');
    reset(f);
    readln(f,txt);
    n:=0;count:=1;
     for i:=1 to length(txt) do begin
       if txt[i]<>' ' then n:=n+1;
       if txt[i+1]=' ' then begin

         val(copy(txt,i+1-n,n),buff,code);
         a[count]:=buff;
         count:=count+1;
         n:=0;
       end;
     end;
     close(f);
     for i:=1 to count do begin
     if a[i]<a[i+1] then max:=a[i+1];
     if a[i]>a[i+1] then min:=a[i+1];
     end;
     writeln(min+max);
     readln;
     end.

[Dima169]

Огромное Спасибо!!!!!!!!!