Сделать эту же программу, только через процедуру

@Макек · Регистрация: 22.05.2015

Author24 — интернет-сервис помощи студентам

Pascal

program laba_14;
uses crt;
const m=20;
var
C:array [1..M] of integer;
max_num, max_index:byte;
i: byte;
begin
for i:=1 to m do begin
C[i] := random(100);
write (C[i]:3);
end;
max_index:=1;
max_num:= C[1];
for i:=2 to m do
if C[i] > max_num then begin
max_index :=i;
max_num :=C[i];
end;
writeln;
writeln ('Max = ',max_num);
writeln ('position: ',max_index);
readln
end.

@APALoff · 09.06.2015, 09:38

Pascal

const m=20;
var
C:array [1..M] of integer;
max_index:byte;
i: byte;
 
Procedure SetMas;
Var j : Byte;
Begin
  for j:=1 to m do
  begin
    C[j] := random(100);
    write (C[j]:3);
  end;
end;
 
begin
  SetMas;
max_index:=1;
for i:=2 to m do if C[i]>C[max_index] then max_index :=i;
writeln;
writeln ('Max = ',C[max_index]);
writeln ('position: ',max_index);
readln
end.

	09.06.2015, 09:38