Станислава

Пожалуйста помогите. Нужна программа на максимальное и минимальное из пяти.
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.
<ССЫЛКА УДАЛЕНА>
Пожалуйста, помогите.

Замечание:

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

Изображения