Дан целочисленный массив из 12 элементов случайных целых чисел, принадлежащих интервалу [10; 45 [. Необходимо найти произведение
258
314
Ответы на вопрос:
Решение задания:
a - имя массива
i - индекс элемента массива
a[i] - элемент массива
s - переменная, в которой хранится произведение элементов массива, кратных 5(пяти)
Оператор присваивания значения i-му элементу массива:
randomize;
for i:=1 to n do begin a[i]:=random(45)+1;
Условие кратности 5 i-го элемента массива:
for i:=1 to n do begin
if (a[i] mod 5 = 0) then s:=s * (a[i]);
if s=1 then s:=5;
end;
Программа на Паскаль:
program z80;
Const n = 12;
var a:array [1..n] of integer; i, s: integer;
BEGIN
randomize;
for i:=1 to n do begin a[i]:=random(45)+1;
write (a[i], ' ');
if i=n then writeln();
end;
s:= 1;
for i:=1 to n do begin
if (a[i] mod 5 = 0) then s:=s * (a[i]);
if s=1 then s:=5;
end;
Writeln ('Произведение элементов массива, кратных пяти равно ', s);
END.
Популярно: Другие предметы
-
eminka123.08.2020 22:08
-
8ВероникаКонорюкова827.05.2023 00:25
-
mashyanova25.02.2020 10:54
-
salavat5sal23.07.2021 22:01
-
lalabai104.11.2020 22:42
-
никнейм8512.07.2020 14:17
-
lolka14304.05.2022 12:40
-
Diron200414.03.2021 20:47
-
Milana2K1804.01.2023 13:00
-
lunenko200512.06.2021 09:54