Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 91911
18.06.2007, 13:24
0.00 руб.
0 2 2
Компьютеры Программирование
Данный фрагмент программы преобразуйте в подпрограмму, используя правила форматирования:

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.

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
18.06.2007, 13:34
общий
это ответ
Здравствуйте, Туев Артём Николаевич!

Смотрите приложение!
Удачи!

Приложение:
program q91911;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.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Неизвестный
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;
Форма ответа