Синформатикой . №1 напишите программу ,которая - вопрос №73321591 от nigaic 25.01.2023 07:24

Question

Информатика: Синформатикой . №1 напишите программу ,которая в последовательности целых чисел определяет кол-во чисел, оканчивающихся на 5. программа получает на вход одномерный массив из 20 случайных чисел в диапазоне значений от 100 до 200. программа должна вывести одно число : кол-во чисел , оканчивающихся на 5 или вывести сообщение таких чисел нет .ввод и вывод массива организовать при процедуры. №2 напишите программу ,которая в последовательности целых чисел определяет максимальное число ,кратное 3 .программа

nigaic · Answer

1)//PascalABC.NET версия 3.2, сборка 1389//Если программа не запускается, то обновите версиюbegin    var a := ArrRandomInteger(20, 100, 200);    Println(a);    var k := a.Count(x - x mod 10 = 5);    Writeln((k = 0) ? Таких чисел нет : k.ToString());end. 2)//PascalABC.NET версия 3.2, сборка 1389//Если программа не запускается, то обновите версиюbegin    var a := ArrRandomInteger(40, -100, 100);    Println(a);    var max := a.Count(x - x mod 3 = 0);    if max 0 then        max := a.Where(x - x mod...