Заполнить одномерный массив произвольной размерности случайными числами из промежутка [-300; 300] и вывести его на экран в строчку, с именем каждого элемента массива и его индексом. обнулить все элементы кратные 3, но не кратные 5 и вывести измененный массив на экран
245
395
Ответы на вопрос:
program help; uses crt; const n = 10; (* размер массива *)var a : array[1..n] of integer; (* массив с числами *) i : integer; beginrandomize; clrscr; writeln('массив: '); for i : = 1 to n do begin a[i] : = random(601) - 300; (* заполняем рандомными числами *) writeln('a[', i, '] = ', a[i]); (* выводим на экран *) if (a[i] mod 3 = 0) and (a[i] mod 5 < > 0) then a[i] : = 0; (* обнуляем числа кратные 3 и не кратные 5 *) end; writeln('массив после изменения: '); for i : = 1 to n do writeln('a[', i, '] = ', a[i]); (* выводим на экран *)end.
Популярно: Информатика
-
lerosabi12.03.2021 03:09
-
bilianskamaria0301.09.2020 22:34
-
alekseyblohinov24.02.2020 18:23
-
smail21231308.05.2023 03:01
-
DragonSeeS05.03.2023 05:34
-
madrid231.12.2020 10:23
-
Зефирка190715.03.2021 21:24
-
Zyherpopentruher00716.01.2021 22:26
-
anyta00601.03.2020 13:47
-
легенда1930.08.2021 21:16