Выбери допустимые имена файлов.

modem?.xlxs
modem. xlxs
*modem\.xls
biology:??..xls
biology. xls
|modem|**..xls

modem.xlxs

modem?.xlxs

biology.xls

Объяснение:

const n=10;

var a: array[1..n] of real;

i: integer;

x: real;

begin

randomize;

for i : = 1 to n do

a[i] : = random (100)-50;

readln(x);

for i: =1 to n do

if a[i]> x then p: =p*i;

writeln(p);

end.

var v,srv,s: real;

begin

  writeln('введите максимальную скорость автомобиля');

  readln(v);

  s: =v*2+(v/4)*3;

  srv: =s/5;

  writeln('расстояние, пройденное автомобилем: ',s,', средняя скорость: ',srv);

end.