Помогите с Информатикой пожалуйста.1Напишите программку ,которая в последовательности целых
Помогите с Информатикой пожалуйста.
1
Напишите программку ,которая в последовательности целых чисел определяет кол-во чисел, заканчивающихся на 5. Программка получает на вход одномерный массив из 20 случайных чисел в спектре значений от 100 до 200.
Программка обязана вывести одно число : кол-во чисел , заканчивающихся на 5 либо вывести извещение "Таких чисел нет".Ввод и вывод массива организовать при поддержки процедуры.
2
Напишите программку ,которая в последовательности целых чисел определяет наибольшее число ,кратное 3 .Программка получает на вход двухмерный массив из 40 случайных чисел в спектре значений от -100 до 100.
Программка обязана вывести одно число - максимальное число ,кратное 3 либо вывести извещенье "Таких чисел нет'. Ввод и вывод массива организовать при помощи процедуры.
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
var a := ArrRandomInteger(20, 100, 200);
Println(a);
var k := a.Count(x -gt; 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 -gt; x mod 3 = 0);
if max lt;gt; 0 then
max := a.Where(x -gt; x mod 3 = 0).Max;
Writeln((max = 0) ? 'Таких чисел нет' : max.ToString());
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.