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

+ 0 -

Dzavialova

26 марта 2014 г., 8:27:54 (10 лет назад)

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.

+ 0 -

Kris506

26 марта 2014 г., 10:02:37 (10 лет назад)

4 и 5