tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Формировать десять случайных
Формировать десять случайных чисел ,от 5до 20,вычислить их сумму. паскаль.
урган1
3 19.08.2019 11:40
0
Ответы
dreamnazym
05.10.2020 05:07
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('s=',ArrRandom(10,5,20).Println.Sum)
end.
Пример
9 14 6 6 20 16 12 11 8 5
s=107
ПОКАЗАТЬ ОТВЕТЫ
elitael
05.10.2020 05:07
Program srand;
const
C = 10;
var
s, i: integer;
begin
s := 0;
for i := 1 to C do
s := s + (random(16) + 5);
writeln(s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
стася106
08.02.2021 10:25
С ПАСКАЛЕМ! Задание 1 Составить блок-схему алгоритма и программу на Паскале для обработки массива из 15 чисел Х=(0.05;-29.9; 0; 1.29; -352; 0.9; -0.1; 3.2; -5; -185.3;19;...
Ekaaaterina
08.02.2021 10:23
ответить на вопросы 1. Напишите определение понятию «растровой графики».2. Опишите достоинства и недостатки растровой графики.3. Дайте определение параметру разрешение изображения.4....
suxova1985251030
20.11.2020 16:52
ПО ИНФОРМАТИКЕ Между дачными посёлками А, Б, В Г, Д построены дороги, протяжённость которых (в километрах) приведена в таблице. Постройте схему, соответствующую этой таблице.Определите...
мага399
20.11.2020 16:53
написать телеграм юзербота на python который сможет 1 командой банить половину группы...
tanyushchik
20.11.2020 16:54
Приведите примеры достоверной и недостоверной информации об окружающем мире (обязательно укажите, какие из них достоверны). Попробуйте на примерах посмотреть, может ли достоверная...
Oooooooooooooool
20.11.2020 16:54
Как в биосе можно разогнать процессор на максимальную чистоту?...
vovamandrik060p09ui1
14.12.2020 09:58
Дан массив В (80), заполненный трехзначными случайными числами. Найти минимальный элемент массива и вывести на экран его индекс. (Написать на языке программирование Pascal)...
Lkjgcvb
14.12.2020 09:58
Запишите пропущенные слова Компьютерная графика делиться на 1 и 2В 3 графике изображение всегда будет выглядеть плоским, потому что при рисовании используется только 2 измерения:...
kuchatrupov47
11.07.2019 08:20
Для закрытия окна приложения можно использовать комбинацию...
Alaaxbek
11.07.2019 08:20
Определите правило преобразования информации: клавиатура-ж обновление-с сканер-?...
Популярные вопросы
Бісектриса кутів A і B трикутника ABC утворюють зі сторонами трикутника...
3
Укажите варианты ответов, в которых во всех словах одного ряда пропущена...
3
1)основания трапеции относятся как 4 к 5,средняя линия =18,найти большее...
3
Определите X, если известно, что это основание системы счисления...
3
2. Позначте на координатній площині множинку точок А(х; у), кокардинати...
2
Моя очень близкая подруга взяла паузу со своим партнёром, они были в...
2
нитка перекинута через нерухомій блок масою блока та терят у блоці можна...
2
составить 5 вопросов(общий, специальный, альтернативный, разделителтный,...
1
The older generation often complains that today s teenegers are very...
3
2) Реши задачи. У продавца 7 синих шаров, красных - в 3 раза больше че...
1
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('s=',ArrRandom(10,5,20).Println.Sum)
end.
Пример
9 14 6 6 20 16 12 11 8 5
s=107
const
C = 10;
var
s, i: integer;
begin
s := 0;
for i := 1 to C do
s := s + (random(16) + 5);
writeln(s);
end.