Станислава

Пожалуйста помогите. Нужна программа на максимальное и минимальное из пяти.
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[i]);
end;
max:= A[i];
min:= A[i];
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 (‘максимальне =’ , 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.
<ССЫЛКА УДАЛЕНА>
Пожалуйста, помогите.

Замечание:

Станислава, если Вы хотите, чтобы Вам помогли, прежде всего будьте любезны с уважением относиться к Правилам нашего форума, запрещающим использование фотохостингов. От себя добавлю - тем более, предлагающих в довесок весьма сомнительные экскурсы в дела постельные. Насчет загрузки изображений - сюда: Как вставить картинки в свой пост Модератор.

Миниатюры

 

Станислава

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

Станислава

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

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[i]);
end;
max:= A[1];
min:= 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 (‘максимальне =’ , max);
writeln (‘мінімальне =’ , min);
End.

Станислава

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

Gruvi

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

Станислава

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

NinaTimof

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

Vladimir_S

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