Pascal. Вычислить количество элементов массива, равных 5. Если таких чисел нет, то...

Question

Pascal. Вычислить количество элементов массива, равных 5. Если таких чисел нет, то вывести сообщение об этом

Answer 1

Ответ:

• begin
• var a := ArrRandom(10,0,9);
• a.Println;
• if a.Any(x->x=5) then Print('Kоличество:',a.Count(x->x=5))
• else Print('Таких чисел нет.')
• end.

Пример работы:

Answer 2

Ответ:

var a:array [1..10] of integer;

   i, count:integer;

begin

 count:=0;

 for i:=1 to 10 do begin

   a[i]:=random(10);

   if a[i] = 5 then count:=count + 1;

 end;

 write('Элементов массива равных пяти: ', count);

end.