Помогите создать таблицу исполнения

[Станислава]

Помогите создать таблицу исполнения

Пожалуйста помогите. Нужна программа на максимальное и минимальное из пяти.
Program Max_Min__of_5;
var A: array [1..5] of integer;
I, max, min: integer;
Begin
for i:=1 to 5 do
begin
writeln (‘введите ‘, 1 ,’ число: ’);
read (A);
end;
max:= A;
min:= A;
for i:=2 to 5 do
begin
if A > max than max:= A;
if A < min than min:= A;
end;
writeln (‘максимальне =’ , max);
writeln (‘мінімальне =’ , min);
End.




По типу этой

Максимальное, минимальное значение из двух
Program MaxMin2;
var A, B, min, max: integer;
Begin
writeln (‘введите два числа’);
read (A,B);
max:= A;
min:= A;
if B > max than max:=B;
if B < min than min:=B;
writeln (‘максимальне =’ , max);
writeln (‘мінімальне =’ , min);
End.
<ССЫЛКА УДАЛЕНА>
Пожалуйста, помогите.

[mod2]Станислава, если Вы хотите, чтобы Вам помогли, прежде всего будьте любезны с уважением относиться к Правилам нашего форума, запрещающим использование фотохостингов. От себя добавлю - тем более, предлагающих в довесок весьма сомнительные экскурсы в дела постельные.
Насчет загрузки изображений - сюда: http://www.tehnari.ru/f8/t32642/

Модератор.[/mod2]

 

[Станислава]

Извените. Мне нужна программа исполнения* ошибка в написании...

 

[Станислава]

программа, таблица... как кто понимает... пожалуйста, помогите.

 

[NinaTimof]

Program Max_Min__of_5;
var A: array [1..5] of integer;
I, max, min: integer;
Begin
for i:=1 to 5 do
begin
writeln (‘введите ‘, i ,’ число: ’);
read (A);
end;
max:= A[1];
min:= A[1];
for i:=2 to 5 do
begin
if A > max than max:= A;
if A < min than min:= A;
end;
writeln (‘максимальне =’ , max);
writeln (‘мінімальне =’ , min);
End.

 

[Станислава]

а как правильно создать таблицу исполнения? пож, подскожите если можете.

 

[Gruvi]

а как правильно создать таблицу исполнения? пож, подскожите если можете.

может двумерный массив???

 

[Станислава]

Что бы мы лучше поняли работу программы учитель гговорит создавать ТАБЛИЦЫ исполнения к программам (как на рисунке по ссылке) вот мне нужно нарисовать такую таблицу к программе Program Max_Min__of_5
а как создать таблицу для этой программы не знаю....

 

[NinaTimof]

я что то понять не могу логики таблицы которую вы привели

 

[Vladimir_S]

я что то понять не могу логики таблицы которую вы привели

Потому что она тут, с моей точки зрения, напрочь отсутствует.
Насчет таблицы, передайте преподавателю, который это выдумал, что он - гений. Я же, извините, подобным идиотизмом заниматься не буду. А вот ошибки в программе - покажу и исправлю:

Program Max_Min__of_5;
var 
 A: array [1..5] of integer;
 I, max, min: integer;
Begin
 for i:=1 to 5 do
  begin
   write[COLOR=Red][B][s]ln[/s][/B][/COLOR] [s][COLOR=Red][B]([/B][B]‘введите ‘, 1 ,’ число: ’[/B][B]);[/B][/COLOR][/s]('введите ',i,' число');
   read[COLOR=Red][B]ln[/B][/COLOR] (A[i]);
  end;
 max:= [s][COLOR=Red][B]A[i][/B][/COLOR];[/s] A[1]; 
 min:= [s][COLOR=Red][B]A[i][/B][/COLOR];[/s] A[1];
 for i:=2 to 5 do
  begin
   if A[i] > max than max:= A[i];
   if A[i] < min than min:= A[i];
  end;
 writeln ([s][COLOR=Red][B]‘максимальне =’[/B][/COLOR][/s] 'максимальне = ', max);
 writeln ([s][COLOR=Red][B]‘мінімальне =’[/B][/COLOR][/s] 'мінімальне = ', min);
 [COLOR=Red][B]readln[/B][/COLOR]
End.

Пояснения:
1. При консольном вводе крайне желательно НЕ использовать оператор read, а пользоваться readln. Иначе могут возникнуть неприятности. Read нужно использовать, только если Вы считываете несколько чисел сразу (например, строку матрицы), но и тут последний элемент требует считывания через readln.
2. Если Вы начинаете цикл сопоставления с i=2, то в качестве исходных значений max и min следует брать A[1]. А то, что написано у Вас, приведет к тому, что исходными окажутся A[5].
3. САМОЕ ГЛАВНОЕ!!! Текстовые сообщения, комментарии, и вообще любые выводимые на экран вставки в операторах write и writeln выделяются ТОЛЬКО прямыми апострофами в ЛАТИНСКОМ регистре. Использование других символов недопустимо (если только у Вас не какая-то специфическая мне неизвестная версия Паскаля).
4. В конце очень желательно поставить команду readln (без параметров). Это позволит приостановить выполнение программы с тем, чтобы увидеть на экране результат. В противном случае она просто моргнет и вылетит либо в турбосреду, либо в папку, откуда Вы запускаете exe-файл.