Помогите решить задачу срочно нужно пожалуйста по алгоритмам!!!!Срочно надо помогите....

DIM i AS INTEGER
DIM a(1 TO 50) AS INTEGER
FOR i = 1 TO 50
PRINT "vvedite"; i; "-element",
INPUT a(i)
NEXT i
maxi% = 1
FOR i = 1 TO n
IF a(i) > a(maxi%) THEN maxi% = i
elem%=a(i)
NEXT i
PRINT "Maximalniy element = "; a(maxi%);"=";elem% ""

или на СИ

#include <stdio.h>

int main(void)
{
int mass[] = {1,2,8,4,10};
int n;
int i;
int Max;

n = 5;
Max = mass[0];

for(i = 1; i < n; i++)
{
if(Max < mass)
Max = mass;
}
printf("%d\n",Max);
}
Затем переделай под минимальный, это не сложно. Ну а разность-это и так понятно максимальный минус минимальный) )

Или вот еще вариант на делфи (от паскаля не сильно отличается)

unit lookmin_;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, Grids;

type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Label2: TLabel;
StringGridl: TStringGrid;
procedure ButtonlClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.ButtonlClick(Sender: TObject);
const
SIZE = 5;
var
a: array[l..SIZE] of integer; // массив целых
min: integer; // номер минимального элемента массива
i: integer; // номер элемента, сравниваемого с минимальным
begin
// ввод массива for i:=1 to SIZE do
a := StrToInt(StringGridl.Cells[i - 1, 0]);
// поиск минимального элемента
min := 1; // пусть первый элемент минимальный
for i := 2 to SIZE do
if a < a[min] then
min := i;
// вывод результата
label2.caption := 'Минимальный элемент массива: '
+ IntToStr(a[min] + #13 + 'Номер элемента: ' + IntToStr(min);
end;

end.

Двоечники задолбали уже .