Массив срочно хера

1 октября 2013 / Разное

массив помогите срочно хера

  • 4) 5 чисел не изменяться
    5)program zadacha;

    uses
      crt;

    var
      mas: array [1..25] of integer;
      mas_i: array [1..25] of integer;
      max, i, n: integer;

    begin
      clrscr;
      randomize;
     
     for i := 1 to 25 do
      begin
        mas[i] := random(10);
      end;
     
      Writeln(‘ Polycheny chisla ‘);
      for i := 1 to 25 do
        write(mas[i]:4);
        max:= mas[i];
      for i :=1 to 25 do
        if mas[i]>max then max:= mas[i];
      Writeln;
      writeln(‘Maxim chislo ‘, max);
      for i:=1 to 25 do
      begin
      if mas[i]=max then mas_i[i]:=i;
      write(‘ ‘,mas_i[i]);
      end;
    end.


Добавить комментарий