Выполнить сравнительную оценку производительности программы сортировки, которая звучит следующим образом - Дан массив из 15 случайных двухбайтных чисел в интервале [-8000;100]. Необходимо выполнить сортировку чисел по не убыванию. Найти значение максимального элемента, с производительностью аналогичной программы, разработанной на языке высокого уровня.
183
410
Ответы на вопрос:
Впервой находятся все 4-значные числа, а не только симметричные. паскаль авс. program ilgiz98; var i: integer; begin writeln('*** alphaeus is ***'); writeln('*** ok ***'); writeln('программа находит 4-значные числа, которые делятся на 27'); writeln('список таких чисел: '); for i: =1000 to 9999 do if (i mod 27)=0 then writeln(i); end. program ilgiz98; var mass: array [1..20] of integer; i, k, n: integer; begin writeln('*** alphaeus is ***'); writeln('*** ok ***'); writeln('среди элементов массива программа находит числа, которые больше заданного числа n и одновременно кратны 5'); write('введите число n '); readln (n); writeln('*** ***'); k: =0; writeln('массив чисел: '); for i: =1 to 20 do begin mass[i]: =random(1000)-500; writeln(mass[i]); if (mass[i]> n) and ((mass[i] mod 5)=0) then k: =k+1; end; writeln(); writeln('всего найдено ',k,' таких чисел'); end.
Популярно: Информатика
-
Pasha232217.03.2022 13:29
-
Kiss53723.01.2023 20:25
-
mechta77119.08.2021 09:58
-
ilonappp1808.03.2020 21:05
-
OneLoveAltezza19.07.2022 11:05
-
lemannv22.03.2021 06:56
-
maivina777777724.09.2022 11:22
-
zhigalkinden08.01.2023 03:54
-
karinasoskova30.11.2022 07:37
-
диана247307.07.2020 08:51