Войти
Регистрация
Спроси ai-bota
vikaviktoriyk1
09.05.2022 18:52
Задайте массив из 5 случайных элементов. выведите на экран сумму его элементов и сами элементы. паскаль
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
2Сергей5751
23.06.2022 13:35
Запишите значение переменной S, полученное в результате работы следующей программы. Var s, i: integer; Begin s := 3; For i := 2 to 5 do s := s + 2*i; Writeln(s);...
Strelkov18
15.08.2022 09:00
Исп.Чертежник алг.нач.сместиться в точку (1,1) опустить перо сместиться на вектор (0,2) сместиться на вектор (2,0) сместиться на точку (3,1) сместиться в точку (1,1)....
netesa0202
07.08.2022 16:17
Инфа 8 класс... 1)Чему будет равно значение А после выполнения алгоритма: A:=2; FOR i:=2 to 4 do A:=A+1; 2)Чему будет равна переменная sum после выполнения фрагмента...
nomakade
14.01.2022 07:57
решить 2 задания по информатике #5 и #6...
135790246anna
25.03.2023 21:22
. Определите количество столбцов в таблице истинности для следующего высказывания A - B /\ C ответ: 2. Дано высказывание ¬B \/ А Определите, какое действие будет...
alina190383oztzns
26.09.2022 14:33
Нұсқамаға байланысты айтылған дұрыс екі тұжырымды анықтаңыз, жалауша белгісін қойыңыз...
Нютик1823
23.10.2022 21:02
Написать программу для 6 класса с Паскаля с фигурами...
korsukova61oye48j
09.02.2022 06:31
Бг5сщщ7с4щ6нещ76ащщ67смлнк8з7а65мл...
ghostcatchy
01.07.2020 18:52
Составить цикл с параметром (блок - схему) вычисления суммы и произведения ряда 1, 3, 5,..., (2n+1)...
ZhenyaN123
28.04.2022 11:32
Коли марічка йде зі школи вона використовує ось такий алгоритм скільки кроків їй потрібно пройти...
Ответ:
dasha3007didek
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
0,0
(0 оценок)
Ответ:
petrovakat2003
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.
0,0
(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота