Program p1;
Uses crt;
Var A: array [1..10] of integer;
i,k: integer;
Begin clrscr;
Writeln ('Введите элементы массива');
for i:=1 to 10 do
read (a[i]);
k:=0;
for i:=1 to 10 do
begin
if (a[i]>10) and (a[i]<30) then
k:=k+1;
end;
writeln ('Количество чисел в диапазоне (10;30) =',k);
Readln;
readkey;
end.
Потому что все данные кодируются в формате двоичной сс
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
begin
var a := ArrRandomInteger(Random(10, 100), 5, 35);
Println(a);
Println('Кол-во запрашиваемых элементов массива = ',a.Count(x -> (x mod 5 = 0) and (x mod 2 = 0)));
end.
Найди в интернете калькулятор и всё
Код программы в файле. Только я хз что значит линейная и написал через цикл for.