сформируйте массив

[анастасия вячес]

мне завтра сдавать... я его перезапустила... а он все равно делать ничего не хочет... аааа...

[Hacker19_90]

я его перезапустила.

кого перезапустили?

[анастасия вячес]

ну то есть перезагрузила

[Mad_Cat]

а) кто будет обьявлять переменные???
б) кто будет генерить массив?
в) кто будет писать его в файл и выводить на экран?
г) что делает ваша процедура index?
д) вот без процедур:

program z4;
var
A:array[1..50] of integer;
i:byte;
f:text;
max,min:byte;
BEGIN
Assign(f,'file.txt');
Rewrite(f);
randomize;
for i:=1 to 50 do
begin
a[i]:=random(100)-50;
write(f,a[i]);
writeln(a[i]);
end;
max := 1;
min := 1;
for i := 1 to 50 do
begin
if a[max] < a[i] then max := i;
if a[min] > a[i] then min := i;
end;
Writeln ('разность элементов:',a[max] - a[min]);
Writeln ('разность индексов:',abs(max-min));
Writeln (f,'разность элементов:',a[max] - a[min]);
Writeln (f,'разность индексов:',abs(max-min));
writeln(f,'');
close(f);
END.

переделывайте под процедуры

[анастасия вячес]

оооо спасибо=)) вы мой герой=)))))) буду вам должна... как земля колхозу=))