Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Ульяна3330
05.05.2023 05:25 •
Информатика
Дан массив 1,4,5,7,8 найти сумму всех элементов в pascal abc
Показать ответ
Ответ:
ЯтвойДругг
05.07.2020 19:02
var
k, s: byte;
a: array [0..4] of byte;
begin
a[0] := 1; a[1] := 4; a[2] := 5; a[3] := 7; a[4] := 8;
for k := 0 to 4 do
s += a[k];
writeln(s);
end.
0,0
(0 оценок)
Ответ:
DoctorVatson1
05.07.2020 19:02
Var
K, s: byte;
A: array [0..4] of byte;
begin
A[0] := 1; a[1] := 4; a[2] := 5; a[3] := 7; a[4] := 8;
for K := 0 to 4 do
s += a[k];
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
daramir02
16.03.2021 22:59
Написать программу , позволяющую по номеру недели (от1-7)выдавать в качестве результата количество уроков в группе в соответствуйший день...
Magic0825
16.03.2021 22:59
Как составить эту программу вычисления чисел кратных не только 2 но и 3. var x,y: integer ; begin y: =0; for x: = 10 to 99 do if x mod 2=0 then y: =y+1; writeln ( количество чисел,...
pitonpitonov
16.03.2021 22:59
Составить программу,выводящую на экран четные числа от 10 до 20,по одному числу в строке....
миха395
04.06.2023 12:23
Трое друзей – илья, костя и серёжа – принимали участие в олимпиаде по программированию, и один из них занял первое место. когда пришли в школу, учительница спросила, кто из них...
Lenakorzyn
04.06.2023 12:23
Составить программу, печатающую значение true, если указанное высказывание является истинным, и false в противном случае, когда целое a не кратно трем и оканчивается нулем. паскаль...
Hicka
02.07.2020 02:38
Дан одномерный массив. проверить, встречается ли в нём максимальное значение более 1 раза....
paskhin2017
31.03.2021 06:19
Пословицы к сказке два брата толстого...
танзила016
31.03.2021 06:19
Найти произведение отрицательных элементов массива из 10 случайных целых чисел от -20 до 20....
Nickbb
11.01.2023 13:12
Задан одномерный массив размером 40. определите количество элементов массива и среднее арифметическое значение этих элементов, которых больше заданного числа 7 и меньше 10. вывести...
dimatitov1428dimasik
11.01.2023 13:12
Дан массив из n элементов. написать программу увеличивающую все элементы на 3....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
k, s: byte;
a: array [0..4] of byte;
begin
a[0] := 1; a[1] := 4; a[2] := 5; a[3] := 7; a[4] := 8;
for k := 0 to 4 do
s += a[k];
writeln(s);
end.
K, s: byte;
A: array [0..4] of byte;
begin
A[0] := 1; a[1] := 4; a[2] := 5; a[3] := 7; a[4] := 8;
for K := 0 to 4 do
s += a[k];
writeln(s);
end.