1.Дан одномерный массив (заданный случайным образом), состоящий из 15 элементов. Написать программу нахождения суммы наибольшего и наименьшего элемента из данного массива. 2. Дан массив, состоящий из 100 чисел. Числа выбираются случайным образом. Написать программу вывода количества целых чисел, кратных 3 помогите плиз решить это задание
// PascalABC.NET
begin
// 1
var a := ArrRandom(15, -99, 99);
a.Println;
Println(a.Min + a.Max);
Writeln; // эта строка только для разделения решений
// 2
var b := ArrRandom(100, -99, 99);
b.Println.Count(p -> p mod 3 = 0).Print
end.
спасибо но можно ли сделать 2 полегче а что я не понял как получилось
Полегче - это вместо одной строки написать, например, пять? Я не считаю, что этолегче и вообще имеет какой-то смысл.
да хотелось бы чтоб вы расписали 2 задание
Во второй задаче b - имя созданного и заполненного при помощи датчика случайных чисел массива. b.Println выводит его значения в строку и делает переход к новой строке. Все выведенное передается "по разделяющей точке" передается функции Count, умеющей считать количество по условию. Это условие - p mod 3 = 0, где р - очередной элемент, т.е. оно означает, что остаток от деления на 3 нулевой. Ну и потом результат выводится.
Насчет "расписываний" - местные Правила не требуют от решившего задание переписывать решение до тех пор, пока оно "не понравится" автору вопроса. Cовременное программирование на PascalABC.NET именно таково - он для того и создавался, чтобы не "расписывать". А если Вам нужен другой паскаль, то это указывается в вопросе, а не после получения ответа.
Разъяснить работающий код - да, это моя обязанность и я дал пояснения. но не переписывать под Ваши хотелки.
хорошо спасибо
Пожалуйста
