Поиск... Избавься от ограничений
ПОПРОБУЙ ЗНАНИЯ ПЛЮС СЕГОДНЯ
rinatilasov20
rinatilasov20
09.11.2020
Информатика
студенческий
ответ дан
Сколько миллионов чисел можно обработать за 1 копейку, если компьютер
потребляет 0,2 кВт в час электроэнергии, а 1 кВт стоит 5 рублей?
170
331
Ответы на вопрос:
Немного не понял, упорядочить по возрастанию снизу вверх. если выводить будет не так то в этой строчке изменишь знак на '> ' if podarr[i] < podarr[i+1] then program znanija_com; const n = 5; m = 3; type tarray = array[1..n, 1..m] of integer; tpodarray = array[1..n] of real; var arr : tarray; podarr : tpodarray; i,j,sum : integer; procedure swap(var x,y: real); var t: real; begin t : = x; x : = y; y : = t end; begin randomize; writeln('исходная матрица: '); for i: =1 to n do begin sum: =0; for j: =1 to m do begin arr[i, j]: =random(10); write(arr[i, j], ' '); sum: =sum+arr[i, j]; end; writeln(); podarr[i]: =sum/m; end; for j: =1 to n-1 do for i: =1 to n-j do if podarr[i] < podarr[i+1] then swap(podarr[i],podarr[i+1]); writeln('результирующий массив: '); for i: =1 to n do writeln(podarr[i], ' '); end.
Популярно: Информатика
-
iuliagam09.02.2021 07:31
-
21ololoha18.02.2020 23:19
-
MrKom108.10.2021 11:50
-
lesikviktoria4715.04.2020 10:00
-
dashasupergirlolly09.03.2021 07:52
-
RickeyF222826.08.2021 02:19
-
ученик2282607.10.2020 15:33
-
Витуся09112.12.2020 07:25
-
Midjdjidjdjxjd07.09.2022 20:37
-
isa222119.07.2020 18:49