18.06.2007, 13:40
общий
это ответ
Здравствуйте, Туев Артём Николаевич!
Что значит в подпрограмму? Вам переписать этот код в процедуру или функцию?
Наверное нет. Просто опечатка была?
Program Primer;
Var
a: array[1..8] of integer;
M, k: integer;
Begin
for k:=1 to 8 do
readln(a[k]);
M:=a[1];
for k:=2 to 8 do
if M<a[k] then M:=A[k];
Write(M);
End.
Если нет, то можно и в процедуру засунуть этот код:
Program Zadacha;
procedure Primer;
Var
a: array[1..8] of integer;
M, k: integer;
Begin
for k:=1 to 8 do
readln(a[k]);
M:=a[1];
for k:=2 to 8 Do
if M<a[k] Then M:=A[k];
Write(m);
End;
Begin
Primer;
End;