Есть программисты?помогите составить алгоритм и программу, пожалуйста:
Заполнить массив с(34) случайными числами до 38.найти произведение чисел кратных 5. Распечатать массив в строку.
Ответы на вопрос
Ответил Endok
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
Приложения:
Ответил Endok
0
На моем паскале не идет, хотя новейшая версия
Ответил Аноним
0
Если версия не раньше моей, то пройдет. У меня же прошло.
Ответил Endok
0
Удивительно как быстро меняются версии, вроде бы только месяц назад скачивал
Ответил Аноним
0
Они меняются там раз в несколько дней. Обкатка идет для 3.0, слишком много они взяли из .NET - среды
Ответил Endok
0
даа... удивительно)
Новые вопросы
Математика,
2 года назад
Алгебра,
2 года назад
История,
9 лет назад
Математика,
9 лет назад
История,
9 лет назад
Алгебра,
9 лет назад