Регистрация
kiranay2007
08.12.2022 00:29
Информатика
Есть ответ 👍

Решить в pascal, желательно простыми , зарание ! )

276
287
Посмотреть ответы 2

Ответы на вопрос:

Jnash99
Jnash99
4,7(40 оценок)

pascalabc.net

procedure minmax(a: array of integer; var min, max: integer);

begin

  for var i : = 0 to a.high do

    if a[i] < min then

      min : = a[i]

    else if a[i] > max then

      max : = a[i]

end;

begin

  var a1 : = arrrandom(10, -99, 99);

  a1.println;

  var a2 : = arrrandom(10, -99, 99);

  a2.println;

  var a3 : = arrrandom(10, -99, 99);

  a3.println;

  var a4 : = arrrandom(10, -99, 99);

  a4.println;

  var min1, min2, min3, min4, max1, max2, max3, max4: integer;

  minmax(a1, min1, max1);

  minmax(a2, min2, max2);

  minmax(a3, min3, max3);

  minmax(a4, min4, max4);

  var r : = seq(min1, min2, min3, min4, max1, max2, max3, max4)

    .sorted.toarray;

  r.println

end.

конечно, подобные намного компактнее и проще писать на базе двумерного массива.

evgen90079
evgen90079
4,6(97 оценок)
123 будет ответ решение думаю смысла нету записывать бо я его устно сделал 

Популярно: Информатика