Задача паскаль

[bird_man]

Составить программу нахождения суммы чисел обратных квадрату первых 100 натуральных чисел.
И ещё
Составить программу, которая запросит последовательность N чисел и сообщит их среднее арифметическое.

[Stilet]

Составить программу, которая запросит последовательность N чисел и сообщит их среднее арифметическое.

var n,sum,i:integer;
write('сколько чисел? ');readln(n);
sum:=0;
while n<0 do begin readln(i); ;sum:=sum+i; dec(n);end;
write(sum);

Сойдет?

[bird_man]

Сойдёт, спасибо!

[Grag]

И хде ж тут среднее арифметическое???

[Stilet]

И хде ж тут среднее арифметическое???

Вупс...
Впрочем автору думаю не составит труда sum разделить на кол-во введенных.