Снова задача про массивы Опции

[goosberry]

Даны массивы a и b из N вещественных чисел. Составить массив c, содержащий номера таких элементов массива a, значения которых больше модуля разности первого и последнего элментов массива b.
Вот такая у меня ерунда получилась, и как всегда, с ошибками... В голове уже всё перепуталось...

 
program zadacha;
 uses crt;
var a: array [1..N] of real;
b: array [1..N] of real;
c: array [1..K] of integer;
I,N,K: integer;
R: real;
begin clrscr;
write (‘Размер массивов a  b’);
readln (N);
write (‘Введите массив a’);
for i:=1 to N do readln (a[i]);
write (‘Введите массив b’);
for i:=1 to N do readln (b[i]);
R:=b[1]-b[N];
R:=ABS ®;
for i:=1 to N do begin
if a[i]>R then begin c[i]:=I; K:=K+1; end;end;
for i:= 1 to K do writeln (c[i]);
readkey;
end.

.
Заранее спасибо.

[goosberry]

Спасибочки

Сообщение отредактировано: goosberry - 2.07.2008 13:12