Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
TryCake
19.05.2022 15:57 •
Информатика
Склавиатуры вводится натуральное число k,затем последовательно вводится k чисел с плавающей точкой. найти сумму этих чисел и наименьшее них.
Показать ответ
Ответ:
WERDF342
17.09.2020 22:50
Var A:array[1..100] of Real;
S,min:real;
i,k:integer;
begin
Readln(k);
For i:=1 to k do
Readln(A[i]);
min:=A[1];
For i:=1 to k do
begin
If A[i]<min then
min:=A[i];
S:=S+A[i];
end;
Writeln('Сумма - ',S,' минимальный - ',min);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
sadyk771
31.01.2023 01:10
Дан массив 7*7.найти наибольший элемент и поменять его местами с элементом стоящим на пересечении диагоналей...
ирина12374
09.01.2022 11:24
Наименьшим элементом в текстовом документе является...
sofiasaro
09.01.2022 11:24
:рассчитать объём видеопамяти для хранения граф. изображения, занмающего весь монитор с разрешением 800×600 и палитрой из 16777216 цветов...
ома7
21.05.2020 00:12
Склавиатуры вводиться длина ширина и высота коробки найти его обьем...
lenyaalikin
18.08.2020 22:45
Практическая работа номер 11. Создайте следующую таблицу:2. Выполните обрамление таблицы зелёным цветом.3. Текст в столбце «Химия» выделите красным цветом.4.Текст в столбце «Физика»...
алекссоколевский
01.07.2020 18:16
с информатикой, на 16 во Хранение информации на внешних носителях отличается от хранения информации в оперативной памяти доступа к хранимой информации 2) возможность защиты информации...
hopelless2124
06.08.2021 02:54
тут вот задоли по информатике...
ququqhbqha
17.12.2022 13:07
Чем отличаются кисти в Paint 3D от кистей в Paint?...
stepankachan
06.03.2021 03:22
С++ Описать структуру с именем STUDENT, содержащую следующее поля: *фамилия и инициалы:*номер группы:*успеваемость (массив из 5 элементов).Написать программу, выполняющую следующее...
вероника290305
05.08.2022 11:30
Напишите программу на паскале Дано неотрицательное целое N. Найти сумму и количество цифр в системе счисления с основанием q. q=2...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
S,min:real;
i,k:integer;
begin
Readln(k);
For i:=1 to k do
Readln(A[i]);
min:=A[1];
For i:=1 to k do
begin
If A[i]<min then
min:=A[i];
S:=S+A[i];
end;
Writeln('Сумма - ',S,' минимальный - ',min);
end.