Cоставить алгоритм и программу для: 1)заполнения лвумерного массива (6x4) произвольными значениями и вывода его на экран! 2)подсчета произведения элементов по строкам и вывода на экран номеров строк и соответствующих произведений элементов! 3)нахождения строки с максимальным произведением элементов и вывода на экран ее номера (номеров) и произведения элементов! 4) выделения 1-го столбца в отдельный массив и сортировки его по возврастанию методом прямого выбора
299
439
Ответы на вопрос:
Const m = 6; n = 4; var a: array[1..m, 1..n] of integer; b: array[1..m] of integer; i, j, p, pmax, imax: integer; flag: boolean; begin {1} randomize; writeln('исходный массив'); for i : = 1 to m do begin for j : = 1 to n do begin a[i, j] : = random(81) - 40; write(a[i, j]: 4) end; writeln end; {2} writeln('произведения построчно'); for i : = 1 to m do begin p : = 1; for j : = 1 to n do p : = p * a[i, j]; writeln(i, ': ', p: 9) end; {3} pmax : = -maxint; writeln('максимальное построчное произведение'); for i : = 1 to m do begin p : = 1; for j : = 1 to n do p : = p * a[i, j]; if pmax < p then begin pmax : = p; imax : = i; end end; writeln(imax, ': ', pmax: 9); {4} for i : = 1 to m do b[i] : = a[i, 1]; for i : = 2 to m do begin p : = b[i]; j : = i - 1; flag : = false; while (j > 0) and (not flag) do if p < b[j] then begin b[j + 1] : = b[j]; j : = j - 1 end else flag : = true; b[j + 1] : = p end; writeln('отсортированный первый столбец'); for i : = 1 to m do writeln(b[i]: 3) end. тестовое решение: исходный массив -27 4 3 14 15 40 -39 -27 40 -40 -40 -24 -38 7 18 1 17 27 29 -9 10 -32 38 0 произведения построчно 1: -4536 2: 631800 3: -1536000 4: -4788 5: -119799 6: 0 максимальное построчное произведение 2: 631800 отсортированный первый столбец -38 -27 10 15 17 40
1) var massive : array [1..100] of integer; i : integer; begin // рандомизируем сид randomize(); for i : = 1 to 100 do begin // заполняем массив случайными числами от -100 до 100 massive[i] : = random(201)-100 ; // выводим число, если оно больше нуля и кратно двум. if ((massive[i] > 0) and (massive[i] mod 2 = 0)) then write(massive[i]+' '); end; end.2)var a : array [1..50] of integer; i ,summ: integer; begin // рандомизируем сид randomize(); // инициализируем переменную суммы summ : = 0; for i : = 1 to 50 do begin // заполняем массив случайными числами от -100 до 100 a[i] : = random(201)-100 ; // суммируем если кратно трем if a[i] mod 3 = 0 then begin summ : = summ + 1; write(a[i] + ' '); end; end; // выводим результат writeln(); writeln('сумма чисел кратных трем = ' + summ); end.
Популярно: Информатика
-
пумв25.02.2023 18:56
-
Liliya00000123.04.2022 23:35
-
КаринаЭрдниева31.05.2022 03:38
-
AsyaFilipova29.01.2023 08:13
-
kristina1710200429.11.2021 09:43
-
sophiakrutko09.03.2023 14:12
-
ДжудиХопс1234516.12.2021 17:33
-
ЯумамыМолодец66627.10.2021 10:42
-
ruslananabok15.09.2021 09:56
-
Kikinaxxxxxx25.03.2022 18:40