На веб-страницу под именем 《Моя семья 》вставьте рисунки , относящиеся к профессиям родственников.Используте - id1179738520230114 от Sillyteenager 14.01.2023 15:44

Question

Информатика: На веб-страницу под именем 《Моя семья 》вставьте рисунки , относящиеся к профессиям родственников.Используте разные размещения​

Sillyteenager · Accepted Answer

// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017

begin
var a:=ArrRandom(ReadInteger('Введите размер массива->'),-2,65); a.Println;
Println(a.Where(e->e>0).Min);
Println(a.Where(e->e<0).DefaultIfEmpty.Max);
end.

Пример(1):

Введите размер массива-> 10
5 22 21 20 40 9 58 57 54 -2
Минимальное среди положительных: 5
Максимальное среди отрицательных: -2

Пример(2):

Введите размер массива-> 10
26 7 13 60 39 62 24 9 20 11
Минимальное среди положительных: 7
Максимальное среди отрицательных: 0

На веб-страницу под именем 《Моя семья 》вставьте рисунки , относящиеся к профессиям родственников.Используте разные размещения​

MOGZ ответил

На веб-страницу под именем 《Моя семья 》вставьте рисунки , относящиеся к профессиям родственников.Используте разные размещения