дан целочисленный массив состоящий из 12 элементов и заполненный случайными числами (-15;15). Найдите количество элементов кратных 5

Ответы

Ответ дал: BobbyFresnel

===== PascalABC.NET =====

begin

var a := ArrRandom(12, -15, 15);

a.Println.Count(p -> p mod 5 = 0).Print

end.

Приложения:

antoxapantelee: program n4;
var a,s:integer;
q:array[0..12] of integer;
begin
for a:=1 to 12 do begin

q[a]:=random(30)-15;
writeln(q[a]);
end;
for a:=1 to 12 do begin
if(q[a] mod 5 =0) then
s:=s+1;
end;
writeln('qe',s);

end.

BobbyFresnel: В смысле, 14 строк вместо пары - это классно? )))

BobbyFresnel: А потом и говорят из-за таких решений, что Паскаль - это уродский язык и надо на Питоне писать.

kotelevskaadd: то самое чувство когда вообще ничего не понимаешь

BobbyFresnel: Ну если у тебя PascalABC.NET, просто скопируй туда программу и запусти. Как убедишься, что верно скопировал (т.е. программа будет работать) - просто ставь курсор на любое слово в программе - выскочит объяснение на русском языке.

Вас заинтересует

Українська мова

1 год назад

Укажіть речення, у якому обставина не відокремлюється комами (розділові знаки пропущено): а) Пішов козак сумуючи (Т.Шевченко). б) Швидко повечерявши полягали спати (Панас Мирний). в) Поклавши

Алгебра

1 год назад

Решите уравнения на изображении

Алгебра

1 год назад

$a)a(b + 3 - c) \\ b) - 2c^{2} (c^{3} - 3c + 2) \\ v)(y + 2)(3 - x)$ Виконайте множення СРОЧНО!