ИНФОРМАТИКА 9 КЛАСС
Работа с системой программирования на языке Паскаль
Напишите программу для реализации следующего сценария:
• целочисленный массив заполняется случайными числами (размерность
массива и числовой диапазон определите самостоятельно);
• выводится сообщение «Заполненный массив»;
• с новой строки выводятся элементы массива в строку через пробел;
• выводится сообщение «Введите значение числа К»;
• запрашивается ввод с клавиатуры целочисленного значения числа К;
• выводится сообщение «Элементы массива, кратные К»;
• осуществляется поиск в массиве элементов, кратных числу К;
• выводятся элементы массива, кратные числу К.
Ответы на вопрос:
ответ: Программа рабочая, проверена.
Program zadacha;
var
a: array [1..50] of integer; // размерность массива = 50
i,k: integer;
begin
begin
for i:=1 to 50 do
a[i] := Random(100); // числа от 0 до 100 будут присутствовать в массиве
writeln('Заполненный массив: ');
for i:=1 to 50 do
write(a[i],' '); end; // выводим массив на экран до проверки
writeln; //новая строка
writeln('Введите значение числа K: '); readln(k);
writeln('Элементы массива, кратные K:');
for i:=1 to 50 do
if (a[i] mod k = 0) then write(a[i],' ');
end.
Объяснение:
i - порядковый номер элемента
a - сам массив
k - вводимое число
В остальном оставила комментарии.
Размерность массива и его диапазон указан в программе числами, т.к. в задаче не было во о вводе элементов или вводе размерности.
Популярно: Информатика
-
GlebRyabov27.11.2022 08:16
-
ангел80917.11.2022 20:28
-
kuyavchr15.05.2023 04:53
-
MrtMiyaGi13.01.2020 03:12
-
MaushaLate8625.07.2022 09:31
-
ленусиклд16.01.2020 06:49
-
Dartvaider30119720.04.2020 13:27
-
arslanbaiguskap0c2gw10.03.2023 06:34
-
nastafil3001.08.2022 06:41
-
littlebottle23.02.2020 22:21