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

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

..ничего не получается...

сформируйте одномерный массив из 50 целых случайных чисел в диапозоне от 0 до 100.составить блок схему к программе.задачу решать с помощью процедур.исходный массив должен быть записан в файл выведен на экран.результат задачи дозаписать в созданный файл.определить разность между max и min элементами массива и их индексами.


заранее спасибо=))))

[Stilet]

А как пробовала?
Есть у меня пример на Обероне, а вдруг тебе Си нужно?

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

мне вообще паскаль нужен.. турбо паскаль... я как бы знаю как сформировать одномерный массив, а вот как определить разность между мах и мин элементами массива и их индексов не знаю как делать...

[Mad_Cat]

как определить разность между мах и мин элементами массива и их индексов

i1:=1;
i2:=1;
for i:=2 to 50 do begin
if a[i]>a[i1] then i1:=i; // макс
if a[i]<a[i2] then i2:=i; // мин
end;
writeln(i1-i2); // разность индексов
writeln(a[i1]-a[i2]); // разность max-min

[Hacker19_90]

max := 1;
min := 1;
for i := 1 to count do
begin
  if mas[max] < mas[i] then max := i;
  if mas[min] > mas[i] then min := i;
end;
Writeln (mas[max] - max[min]);
Writeln (abs(max-min));

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

то есть будет программа выглядеть так???? проверьте пожалуйста....

program z4;
var
A:array[0..50] of integer;
i:byte;
f:text;

procedure index;
var k:integer;
begin
k:=10;
i:=1;
writeln;
while k > 0 do
begin
if A[i] > 0 then begin
                 write(f,A[i],' ');
                 write(A[i],' ');
                 dec(k);
                 inc(i);
                 end;

end;
writeln(f,i-1);
writeln;
write('index=',i-1);
end;
BEGIN
Assign(f,'file.txt');
Rewrite(f);
randomize;
for i:=1 to 50 do
begin
max := 1;
min := 1;
for i := 1 to count do
begin
  if mas[max] < mas[i] then max := i;
  if mas[min] > mass[i] then min := i;
end;
Writeln (abs(mas[max] - max[min]));
Writeln (abs(max-min));
end;
writeln(f,'');
index;
close(f);
END.

ребята... скажи правильно решена задача или нет????

[Mad_Cat]

а запустить? оттестить попробовать не?

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

у меня что-то с тр... не хочет запускаться

[Hacker19_90]

у меня что-то с тр... не хочет запускаться

устал наверно!
перезагрузите комп!

[Mad_Cat]

перезагрузите комп!

а лучше выключите - пусть до утра отдохнет!