1. Информатика
  2. Вцелочисленной массиве a

Вцелочисленной массиве a , состоящим из 10 элементов от -20 до 20 , найти сумму положительных элементов кратных 3, с рандома.

vitalina05062005 vitalina05062005    3   18.09.2019 02:50    5

Ответы
azat20142014 azat20142014  07.10.2020 23:08
Var s, a, t: integer;begins := 0;randomize;for t := 1 to 10 dobegina := random(41)  - 20;if a mod 3 = 0 then s := s + a;end;writeln(s);end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
yulyaartemowa20 yulyaartemowa20  02.12.2020 13:36
Запишіть команду для відкриття вікна налаштування параметрів сторінки. 2. Запишіть команду для створення рамки на титульній сторінці. 3. Запишіть команду для вставки...
hakimov676 hakimov676  30.07.2019 09:20
Напишите программу которая считает количество чётных цифр введённого числа...
Sabziro18 Sabziro18  30.07.2019 09:20
Что может произойти в кабинете информатики? какие травмы там можно получить, чтобы требовалось оказание первой мед. ?...
rusrusik rusrusik  30.07.2019 09:20
Заполнить двухмерный массив: 12 24 108 120 11 23 107 119 2 14 98 110 1 13 97 109...
verastepanova5 verastepanova5  20.07.2019 07:10
Постройте ориентированный граф системы «автомобиль», содержащий следующие вершины: руль, колеса, двигатель, педаль тормоза, педаль газа. линия связи означает отношение...
angelinasestak angelinasestak  20.05.2019 07:00
Имеется садовый участок, имеющий форму прямоугольника со сторонами а и в метров.составьте программу,которая определит сколько досок надо купить, чтобы поставить сплошной...
sashakesha2006 sashakesha2006  20.05.2019 07:00
На уроці мальвіна запропонувала учням виконати такий алгоритм: 1)задумай число; 2)додай до числа 1; 3) помнож результат на 3; 4)поділи результат на 3; 5)відніми від...
Andreychic23 Andreychic23  20.05.2019 07:00
Написать программу, которая бы по введенному номеру года (1 - зима, 2-весна, 3-лето, 4-осень) выдавала соответствующие этому времени года месяцы, количество дней в...
ImagineDragons1111 ImagineDragons1111  20.05.2019 06:50
Составить программу которая запрашивает число и выдает таблицу умножения на это число.нужно решать в паскале.напишите )...
Timurrovt456 Timurrovt456  05.08.2019 22:20
Перевести десятичную дробь в шестнадцатеричную систему счисления.в новой записи числа сохранить шесть знаков 0,745...

Популярные вопросы