Ввод и вывод массива из 100 элементов, заданных случайным образом из [-20;20].
saha299
2
23.04.2020 17:38
0
Другие вопросы по теме Информатика
sonyaunicorn1
21.12.2020 18:02
Alnaalnaalna
21.12.2020 18:03
asimagasanova
21.12.2020 18:03
кира6371929648
21.12.2020 18:03
дашкатопикепи
21.12.2020 18:03
artemmishin7777777
20.10.2020 09:10
Touka1337
20.10.2020 09:10
LIquid0Horse
02.07.2019 23:10
vladmasWwr
02.07.2019 23:10
Популярные вопросы
- Определите с картосхемы в параграфе важность использования путей сообщения...
3 - Чем были обусловлены и в чем заключались ограничения при проведении...
2 - Определите, в чем заключался завет К. Калиновского белорусскому народу....
1 - Как повлияло восстание 1863—1864 гг. на условия освобождения крестьян...
2 - Перечислите условия выкупной операции. Используйте следующие понятия:...
1 - Определите роль исторических личностей и деятелей культуры Беларуси:...
2 - Охарактеризуйте условия получения земли государственными крестьянами....
3 - Приведите примеры архитектурных памятников в Беларуси, построенных...
1 - Докажите, что в первой половине XIX в. происходил процесс становления...
3 - Докажите, что условия получения крестьянами земли фактически компенсировали...
2
program q174147740;
var
i, k: integer;
a: array [1..20] of integer;
begin
k:=0;
Randomize;
for i := 1 to 20 do
begin
a[i] := Random(100);
Write(a[i]:3);
if (a[i] mod 15) =0 then k:=k+1;
end;
end.
Подробнее - на -