Помогите найти max и min из 4 переменных turbo pascal - есть ответ

Ответы:

Священное Предание в первую очередь есть Основа Понимания Истины. Важность священного Предания состоит в том, что только человек, который,

program ttt;
const
m = 4;

var
arr: array[1..m] of integer;
i, j, k: integer;

begin

write ('Введите 4 переменные ');
for i := 1 to m do begin
write ('Переменная ',chr(64+i),'=');readln(arr[i]);
end;
writeln; writeln;

for i := 1 to m-1 do
for j := 1 to m-i do
if arr[j] > arr[j+1] then begin
k := arr[j];
arr[j] := arr[j+1];
arr[j+1] := k
end;

write ('Минимальное значение : '); writeln (arr[1]);
write ('Максимальное значение : '); writeln (arr[4]);

readln
end.

11 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.