Паскаль

[noone]

Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и найти в нем максимальный и минимальный элементы и их номера.

[James_047]

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

http://www.cyberforum.ru/pascal/thread122635.html

[J.B.DiGriz]

пиши в скайп или контакт - сделаю, недорого...

[ByAlex]

uses crt;
var
   mas:array[1..10] of integer;
   i,max,min,imax,imin:integer;
begin
     write('Massive is - ');
     for i:=1 to 10 do
     begin
         mas[i]:=random(20)-10;
         write(mas[i],'  ');
     end;
     writeln;
     max:=0;
     min:=0;
     for i:=1 to 10 do
     begin
          if mas[i]>max then
          begin
               max:=mas[i];
               imax:=i;
          end;
          if mas[i]<min then
          begin
               min:=mas[i];
               imin:=i;
          end;
     end;
     writeln('Max = ',max,' index=',imax);
     writeln('Min = ',min,' index=',imin);
     readln;
end.