tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Сформулировать массив из n
Сформулировать массив из n случайных чисел от 0 до 86. найти сумму чисел кратных 3
DAmigoX
3 15.06.2019 06:00
8
Ответы
александра7896
12.07.2020 13:43
Const n=10;
var a:array[1..n] of integer;
sum, i:integer;
begin
randomize;
sum:=0;
for i:=1 to n do
begin
a[i]:=random(86);
write(a[i],' ');
if (a[i] mod 3 =0) and(a[i]<>0) then sum:=sum+a[i];
end;
writeln;
writeln(sum)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Blackmamba06
07.12.2020 17:07
Рассмотрите графическое изображение выбери тип графики СОР графика векторная графика растровая графика...
astanina042
06.11.2021 06:34
Составить программу для решения задачи...
vdoncov23
24.03.2020 06:48
Ввести с клавиатуры вещественное число Х и вычислить его квадрат Y=X^2. Значения Y и X вывести на экран в окнах ввода вывода...
samira124
24.03.2020 06:47
Сервис сети для передачи текстовых сообщений и вложенных файлов через компьютерную сеть называется? (ответ в два слова)...
matvey9874
21.06.2019 19:20
Сна паскаль 1)заполните таблицу из 25-ти чисел последовательностью: 0,5,10,15,20.. 2)заполните таблицу из 50-ти чисел сдедующей последовательностью: 2,5,2,5, 3)заполните...
ИльяРазумовский214
22.08.2019 15:50
Сочинение-рассуждение мое впечатление о печорине. хээлп...
ГорголаІлля
22.08.2019 15:50
Решите уравнение 1)|x+1,7|*(2x+3)=0; 2)|x-4|*(2x+7)=0; 3)|5x-8|*(x-6)=0....
Aliska00129
22.08.2019 15:50
Сколько будет стоить свитер после 12%-ного повышения цен ,если раньше он стоил 300р...
балу123456
22.08.2019 15:50
1. x^2/x+3=2x+3/x+3 2. 2х/x+6 - 144/x^2-36=1...
почта6
22.08.2019 15:50
Вдупле у белки было 53 ореха и 7 грибов, 8 орехов она съела. сколько припасов осталось у белки? нужна схема к , ....
Популярные вопросы
Вкажіть в якій сполуці валентність Фосфору найвищаА) P2O3Б) Ca3P2В) P2O5Г)...
1
английский язык 8 класс с189 номер 2, прикрепил файл...
3
Задание 193. Поясните опыт с «ведеркомАрхимеда», изображенный на рисунках.Запишите,...
3
Морфологический разбор глагола ❗ Задание: выписать глагол и сделать его...
1
Составьте ответ на во Почему Герда победила Снежную королеву?» по этому...
3
Какой рассказ можно составить?...
1
Два одинаковых тела движутся с одинаковыми скоростями навстречу друг...
2
Повітряна куля масою 30 кг натягує нитку із силою 1400 H. яка архімедовп...
3
З двох міст, відстань між якими 187,5 км, виїхали одночасно назустріч...
1
Кружность вписанная в треугольник DEF касается стороны DF в точке А такой,...
1
var a:array[1..n] of integer;
sum, i:integer;
begin
randomize;
sum:=0;
for i:=1 to n do
begin
a[i]:=random(86);
write(a[i],' ');
if (a[i] mod 3 =0) and(a[i]<>0) then sum:=sum+a[i];
end;
writeln;
writeln(sum)
end.