tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Задайте массив из 5 случайных
Задайте массив из 5 случайных элементов. выведите на экран сумму его элементов и сами элементы. паскаль
катяeryixs
1 23.09.2019 20:00
0
Ответы
КсенияБыкК
08.10.2020 13:12
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(5,-99,99); a.Println;
Writeln('Сумма элементов равна ',a.Sum)
end.
Пример
21 -79 -52 57 -64
Сумма элементов равна -117
ПОКАЗАТЬ ОТВЕТЫ
daryabatova
08.10.2020 13:12
Var a:array [1..5] of integer;
i,s:integer;
begin
for i:= 1 to 5 do a[i]:= Random(51);
writeln(a);
for i:=1 to 5 do s:=s+a[i];
writeln(s)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ssshhhhhhannnnssha
14.04.2020 19:02
Запиши значение десятичного числа, которое в двоичной системе счисления соответствует числу 11110110....
Кунілінгус
14.04.2020 19:02
ОЧЕНЬ Может ли транспортная задача иметь несколько оптимальных решений, обеспечивающих одинаковую суммарную стоимость перевозок: а) при определенных условиях, б) нет,...
Danik119200
14.04.2020 19:01
Ребят, у меня к вам такой во не по теме учёбы.Как скинуть документ из Либер Офис ? Версия на телефоне . Если честно нужно...
Xadice12345
14.04.2020 19:01
информатика. Расположите этапы моделирования в правильном порядке....
MuertoLegend
14.04.2020 19:01
Запиши десятичное число 243 в системе счисления с основанием 6....
дмитрий462
31.05.2019 02:40
Можно ли самому себе послать электронное письмо? 1) нет,как нельзя позвонить самому себе 2) нет,почтовый сервер укажет на ошибку 3) да,но только через чужую почту 4)...
сема10
31.05.2019 02:40
Сколько единиц в двоичной записи числа 119...
svetikkosharna
30.04.2020 03:23
Дано дерево каталогов. Определите полное имя файла Бос3 a) А:/ Бос3 б) А:/DOC3/Doc3 в) А:/ПОРТ2/Бос3 г) А:/ПОРТ3/Бос3...
StEInN2
01.06.2019 20:50
Скорость передачи данных через adsl-соединение равна 256000 бит/с. передача файла через данное соединение заняла 3 минуты. определите размер файла в килобайтах....
Ghannik08
07.06.2019 12:40
Хлоропласты не содержатся в клетках 1)тополя белого 2)белого гриба 3)сфагнума (белого мха) 4)листьев свеклы...
Популярные вопросы
Найдите значение выражения 2,6*5,8+4,2*2,6...
2
Найдите угол между часовой и минутной стрелкой в 14 часов 30 минут....
1
Приблизительный размер приблизительный размер острова мадагаскар...
3
На какой диаграмме правильно показано соотношение площадей материков...
3
Жірегі жұтқаң-батыр тайға таңба басқандай...
2
Боря купил 4 книги. все книги без первой стоят 42 руб. без второй...
1
Найдите координаты и длину вектора в,если а=1/3 b-c,b (3; -9),c...
2
Какие из них внутренние моря: красное, , гренландское и беренгово?...
3
Сочинение на тему повествовотельное...
2
Осенью с одного поля собрали 28 мешков картофеля а с другого поле...
3
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(5,-99,99); a.Println;
Writeln('Сумма элементов равна ',a.Sum)
end.
Пример
21 -79 -52 57 -64
Сумма элементов равна -117
i,s:integer;
begin
for i:= 1 to 5 do a[i]:= Random(51);
writeln(a);
for i:=1 to 5 do s:=s+a[i];
writeln(s)
end.