tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Сумма 10 случайных чисел. вывести
Сумма 10 случайных чисел. вывести числа больше 5. найти минимальное число среди них. на языке паскаль.
ппам
3 28.08.2019 02:40
3
Ответы
LAxPiet
05.10.2020 23:52
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-50,50); a.Println;
Writeln('S=',a.Sum);
Writeln('min=',a.Where(x->x>5).Println.Min)
end.
Пример
25 28 13 32 11 34 15 -37 -13 50
S=158
25 28 13 32 11 34 15 50
min=11
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
miroslavuvarovozq4v4
29.09.2019 15:00
Объем видеопамяти равен 1 мб. разрешающая дисплея - 512 х 1024. какое максимальное количество цветов можно использовать для одной страницы видеопамяти?...
sofiyka4
29.09.2019 15:00
Мощность алфавита 64 символа. чему равен информационный вес(объем) текста из 2048 символов?...
Yaroslav1640
25.12.2019 15:04
Составить программу в кумире...
di630
25.12.2019 14:57
Компьютерные сети назначение: ...
динани1
25.12.2019 14:56
Напишите оператор описания констант...
smn43
25.12.2019 14:55
30 б а) a+bx+cyz написать программу в паскаль...
Pikaduwert
25.12.2019 14:51
1укажите правильное описание массива:...
neftyanik102
25.12.2019 14:46
Обьесните каждую команду каждую строчку что где происходит 35 program z_8; var i, s2, s3, s4, s5: integer; a: array [1..20] of integer; begin for i: =1 to 20 do begin a[i] : = random(2,...
ivancerbadji
25.12.2019 14:38
на 3 и 4 вопрос.если сможете то на 1 и 2 ( хочу проверить)...
Dasha7011
25.12.2019 14:36
Введи адресу виділеного діапазону введи адресу без пробілів і клацни кнопку відповісти” ( нужно )...
Популярные вопросы
Вопрос такой: мини как я понемаю слово богатырь...
3
Синтаксический разбор предложения удивительнейший край сибирь!...
2
Найдите (3sina-4cosa)/(5sina+6cosa), если tga =-3...
3
Решить уравнение 2*x 37 найти 5 вариантов икса...
1
Решите уравнения. | - дробь подробных решений....
2
Напишите наименьшее натуральное число которое делится на 3,6,7...
1
Выписать из художественного текста 3 сложных предложения,3 предложения с однородными...
1
×во второй минус 4 делить на 2×минус × во второй...
3
1питання. чи здійснилися мрія бермана 2питання. тема дружби у новеллі...
2
Калиновым, малиновым, медовые. разобрать по составу....
2
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-50,50); a.Println;
Writeln('S=',a.Sum);
Writeln('min=',a.Where(x->x>5).Println.Min)
end.
Пример
25 28 13 32 11 34 15 -37 -13 50
S=158
25 28 13 32 11 34 15 50
min=11