var
a: array[1..9999] of real;
i, n, b: integer;
begin
randomize;
Write('Введите число эементов массива:'); readln(n);
b:=0;
for i:=1 to n do
begin
a[i]:=-5+random(11);
writeln('a[', i, ']=', a[i]);
if a[i]=5 then b:=b+1;
end;
writeln('Кол-во элементов, равных 5: ', b);
end.
V=R*t*N
t=V/RN
t=(3750*1024*8)/(32*48000)
t=20 секунд
Количество вещей в сумке - integer;
Количество школ в городе - integer;
Разность двух целых чисел - integer.
1 Включить робота 2 Приказать ему подойти к холодильнику 3 Открыть 4 Взять то что нужно 5 Закрыть его 6 Отойти от холодильника xD
<h3>// PascalABC.NET 3.4.2, сборка 1806 от 30.09.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
var N := ReadlnInteger;
var a := ReadArrInteger(N);
var X := ReadInteger;
a.Count(t -> t = X).Println
end.