Дан одномерный массив А(N) .Составить программу.

[cjcezar]

Помогите пожалуйста, студенту медику. Учить нужно море... а тут и это... =(

Дан одномерный массив А(N) .Составить программу.

1. Определить, сколько точек М1 (A(1),A(N)), М2 (A(2),A(N-1)), …, Мn (A(N),A(1)) таких, которые принадлежат замкнутому кругу радиуса R c центром в начале координат.

[IT-man]

k:=0;
for i:=1 to n  do
if (sqr(a[i])+sqr(a[n-i+1]))<sqr(r) then k:=k+1;

[cjcezar]

Сообщение от IT-man

k:=0;
for i:=1 to n  do
if (sqr(a[i])+sqr(a[n-i+1]))<sqr(r) then k:=k+1;

и это все?

[Stilet]

Почти. Тут еще нужно описать массив a:array[1..n] of double;
Так же константу const n=10 - типо 10 точек будет.
Ну и конечно же вывод write('Найдено ',k,' точек');

[cjcezar]

const
  nm=200;
type
  mas=array[1..nm] of integer;
var
  z:mas;
  i,n,r,k:integer;
begin
  randomize;
  repeat
    write('Razmer massiva, ne bolee ',nm,': ');
    readln(n);
  until n in [1..nm];
  writeln('Ishodniy massiv:');
  for i:=1 to n do
    begin
      z[i]:=-10+random(21);
      write(z[i]:4);
    end;
  writeln;
  repeat
    write('Radius kruga:');
    readln(r);
  until r>0;
  k:=0;
  for i:=1 to n do
    if sqr(r)>=(sqr(z[i])+sqr(z[n-i+1])) then
      k:=k+1;
  writeln('Kolichestvo tochek:',k);
end.

правильно??