Предмет: Информатика,
автор: Супермен2014
Есть программисты?помогите составить алгоритм и программу, пожалуйста:
Заполнить массив с(34) случайными числами до 38.найти произведение чисел кратных 5. Распечатать массив в строку.
Ответы
Автор ответа:
0
Автор ответа:
0
// PascalABC.NET 3.0, сборка 1088
begin
var a:=ArrRandom(35,1,38);
a.PrintLn;
Writeln(a.Where(x->x mod 5=0).Aggregate((x,y)->x*y))
end.
Тестовое решение:
35 1 3 3 1 19 31 38 31 32 33 10 7 22 21 1 18 17 19 32 21 18 31 30 10 2 23 34 33 23 12 25 12 5 30
393750000
begin
var a:=ArrRandom(35,1,38);
a.PrintLn;
Writeln(a.Where(x->x mod 5=0).Aggregate((x,y)->x*y))
end.
Тестовое решение:
35 1 3 3 1 19 31 38 31 32 33 10 7 22 21 1 18 17 19 32 21 18 31 30 10 2 23 34 33 23 12 25 12 5 30
393750000
Приложения:
Автор ответа:
0
На моем паскале не идет, хотя новейшая версия
Автор ответа:
0
Если версия не раньше моей, то пройдет. У меня же прошло.
Автор ответа:
0
Удивительно как быстро меняются версии, вроде бы только месяц назад скачивал
Автор ответа:
0
Они меняются там раз в несколько дней. Обкатка идет для 3.0, слишком много они взяли из .NET - среды
Автор ответа:
0
даа... удивительно)
Похожие вопросы
Предмет: Другие предметы,
автор: alena2490
Предмет: Алгебра,
автор: СтИк163
Предмет: Биология,
автор: Аноним
Предмет: История,
автор: Аноним
Предмет: История,
автор: Lelya436