Больничная статистика и Супер число

[DuXa44]

программеры,хэлп,никак не доходит как решить задачи,вот тут условие:http://zns.susu.ru/IT/lab1-6.htm
первая и третья задачи,заранее спасибо

[kuy]

Первая как-то так:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
const
 size=100;
type
 TArray=array[1..size] of real;
var
n,min,max,i:integer;
mas:tarray;
avg,suma:real;
begin
write('Input N: '); readln(n);
writeln('Input temperature:');
min:=1;
for i:=1 to n do
begin
write(i,'). ');
readln(mas[i]);
if mas[i]<mas[min] then min:=i;
if mas[i]>mas[max] then max:=i;
end;
for i:=1 to n do suma:=suma+mas[i];
avg:=suma/n;
writeln('Min temperature is ',mas[min]:0:1);
writeln('Max temperature is ',mas[max]:0:1);
writeln('AVG is ',avg:0:2);
readln;
end.

Если нужно чётко под параметры ввода-вывода, то сам уже переобразуй.

[DuXa44]

спасибо,а третью задачу?

[rampagelikenp]

хелпаните с 3ей задачей
Дана целочисленная матрица размера MxN. Найти:
Y=x(1)*x(m)+x(2)*x(m-1)+…+x(m)*x(1),
где x(i) – разность между максимальным и минимальным элементами i-ой строки.
Входные данные:
Два целых числа M < 100 и N < 100 – размерности прямоугольной матрицы.
Выходные данные:
Матрица, размером MxN.
Вещественное число Y.

Указания:
1) Определите константу "Размерность матрицы" и тип "Матрица целых чисел" соответствующей размерности. Например:
const
Size=100;
type
TMatrix=array [1..Size, 1..Size] of real;

2) Ввод матрицы осуществите при помощи оператора Random в отдельной подпрограмме.
3) Оформите вывод элементов матрицы в виде отдельной подпрограммы.