Матрицы, функции

[Ktuftuftagn]

у меня полный завал с этим программированию в делфи 7, кто может помогите решить парочку задач... БУДУ ну очень блогадарен



1) Найти среднеорифмичесне значение наибольшего и най меньшего элементов матрицы (5*3)

2) Составить программу которая вычисляет функцию, найти наименьшее значение среди них


3) Обчилисть функцию

[Rastor]

Сообщение от Ktuftuftagn

1) Найти среднеорифмичесне значение наибольшего и най меньшего элементов матрицы (5*3)

может среднеарифметическое?

это что найти наименьшее и наибольшее число и их среднеарифметическое?

Условие не понятное...

[Ktuftuftagn]

Сообщение от Rastor

может среднеарифметическое?

да плохо перевел с Украинского написано было на УКр

Сообщение от Rastor

это что найти наименьшее и наибольшее число и их среднеарифметическое?

значення найбільшого і найменшого елементів матриці (5*3)

[Rastor]

как задаются входные данные?

Тоесть читаются

[Ktuftuftagn]

есть хоть что то?

[puporev]

№1 в консоли.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
m=5;
n=3;
var a:array of array of integer;
    i,j:byte;
    mx,mn:integer;
begin
randomize;
Setlength(a,m,n);
writeln('Matrica:');
for i:=0 to m-1 do
 begin
  for j:=0 to n-1 do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
mx:=a[0,0];mn:=a[0,0];
for i:=0 to m-1 do
for j:=0 to n-1 do
 begin
  if a[i,j]>mx then mx:=a[i,j];
  if a[i,j]<mn then mn:=a[i,j];
 end;
write('Max=',mx,'  Min=',mn,'  Sred=',(mn+mx)/2:0:3);
readln
end.

№2. При вычислениях всего одно значение функции и как из него выбирать наименьшее, я не знаю.

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var x,y:real;
begin
write('x=');
readln(x);
if x>0 then y:=1-2/x
else y:=x*x-2*x+1;
write('Y=',y:0:4);
readln
end.

№3.
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,Math;
var a,b,c,d,y:real;
begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
if Power(c-1,3)+Power(d-1,3)=0 then write('Funktia ne opredelena!')
else
 begin
   y:=(Power(a-1,3)+Power(b-1,3))/(Power(c-1,3)+Power(d-1,3));
   write('Y=',y:0:4);
  end;
readln
end.

[Ktuftuftagn]

низкий тебе поклон! респект.
с меня пиво