Определите, что будет напечатано в результате работы следующей программы. var s, k: integer; begin s := 80; for k := 0 to 11 do s := s − 6; writeln(s); end.

150

179

Посмотреть ответы 1

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

Yarmoshenkobchmd

Информатика

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

Procedure sort(arr : array of integer); var i, j, temp, len, min : integer; begin len : = length(arr); for j : = 0 to len - 2 do begin min : = j; for i : = j + 1 to len - 1 do if arr[i] < arr[min] then min : = i; if min > j then begin temp : = arr[j]; arr[j] : = arr[min]; arr[min] : = temp; end; end; end; const n = 10; // количество элементов массива max = 100; // максимальное число в массиве var arr : array of integer; i : integer; begin //устанавливаем длину массива setlength(arr, n); for i : = 0 to n - 1 do arr[i] : = random(max); //выводим исходный массив for i : = 0 to n - 1 do write(arr[i], ' '); writeln(); sort(arr); //выводим отсортированный массива for i : = 0 to n - 1 do write(arr[i], ' '); writeln(); end.