Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Superpuper228911
02.07.2020 15:08 •
Информатика
Напишите программу заполнения одномерного массива любым и найдите сумму всех элементов.
Показать ответ
Ответ:
Tennisboy
03.07.2020 15:53
Const
n=10;
var
a:array[1..n] of real;
Sum:real;
i:byte;
begin
writeln('Введите числа');
for i:=1 to n do
read(a[i]);
sum:=a[1];
for i:=2 to n do
sum:=sum+a[i];
writeln('Сумма равна = ', sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ИЩЕ6
10.02.2022 15:43
Изобразите интерфейс приложения который будет вычислять периметр фигуры...
помаги116
23.04.2020 09:00
завтра важная контрольная, на которой решается моя ! составьте программу рисования вложенных друг в друга квадратов с использованием процедуры kvadrat(фото) ...
molotok1515
04.08.2021 08:17
Напишите наибольшее целое число X, для которого истинно высказывание:НЕ (X = 14)....
tda512
27.11.2020 21:27
с заданием Написать программу, которая формирует массив из 5 чисел целыми числами a[i]= a[i]+5 и находит сумму элементов a[2] и a[4] этого массива...
Лораншу
29.08.2021 21:40
10 . Перегляньте підручник з географії для 7 класу. Запропонуйте, які таблиці із цьо- го підручника доцільно опрацювати в табличному процесорі. Поясніть чому,...
Конник953
31.05.2020 21:47
Технической системой является …...
sasha2000val
14.03.2023 16:17
Результаты переписи населения хранятся в памяти эвм. элемент массива - год рождения жителя. подсчитайте общее число жителей родившихся 1958г....
JesusVl
14.03.2023 16:17
Дано натуральное число n. выяснить, входит ли цифра 7 в запись числа n2.( решение в паскале) буду...
seniorALFEROV
08.06.2023 02:19
1. найдите значение логической переменной: f: =(not(5 2)or(4div2=0)and(1 7mod4))or((15 30)and(11div5=2)) , !...
Срочный103
26.06.2022 01:55
Найти и описать ошибки. исправить ошибки. написать результат программы const a: byte; x; y: integer, v: real, // переменная begin write( введите x,y: ), readln(x,y), v =...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n=10;
var
a:array[1..n] of real;
Sum:real;
i:byte;
begin
writeln('Введите числа');
for i:=1 to n do
read(a[i]);
sum:=a[1];
for i:=2 to n do
sum:=sum+a[i];
writeln('Сумма равна = ', sum);
end.