расширение от имени отделяется точкой
Var a: array[1..7] of real;
k, n: integer;
begin
readln(k, n);
for i:=1 to 7 do begin
read(a[i]);
if a[i]<>0 then if a[i]>0 then a[i]:=a[i]-a[k] else a[i]:=a[i]-a[n];
write(a[i], ' ');
Pascal
const n = 20;
var
a,b,min : real;
m : array [1..n] of real;
i : integer;
begin
// формирова массива не пишу
readln (a,b);
min := b;
for i := 1 to n do
if (m[i]<min) and (m[i] >=a ) and (m[i] <=b)
then
min := m[i];
writeln (min:3:2);
<span>end.
Программа будет работать корректно, если в массиве есть хотя бы один элемент, попадающий в диапозон [a..b].</span>
R^2
Var
x,y,r:integer;
Begin
Write('Введите координату X: ');
Readln(x);
Write('Введите координату Y: ');
Readln(y);
Write('Введите длину радиуса R: ');
Readln(r);
If (sqr(x)+sqr(y))=sqr(r) <span>then </span>
writeln('Точка лежит на окружности!')
Else writeln('Точка не лежит на окружности!');<span>
End.</span>