Pascal. Среднее арифметическое. Помогите.

[Brain1ess]

Вычислить среднее арифметическое положительных элементов для массивов a(t), b(t), c(k). С помощью procedure или function. Напишите полную программу, пожалуйста.

[Stilet]

const t=0,k=0;
var a,b:array[0..t] of double; c:array[0..k] of double;

 procedure inpa; var i:integer; begin for i:=0 to t do readln(a[i]); end;
 procedure inpb; var i:integer; begin for i:=0 to t do readln(b[i]); end;
 procedure inpc; var i:integer; begin for i:=0 to k do readln(c[i]); end;

 function avga:double; var i:integer; d:double; begin d:=a[0]; for i:=1 to t do d:=d+a[i]; avga:=d/(t-1); end;
 function avgb:double; var i:integer; d:double; begin d:=b[0]; for i:=1 to t do d:=d+b[i]; avgb:=d/(t-1); end;
 function avgc:double; var i:integer; d:double; begin d:=c[0]; for i:=1 to k do d:=d+c[i]; avgc:=d/(k-1); end;

begin
 inpa;inpb;inpc;
 write(avga:10:2,avgb:10:2,avgc:10:2); readln;
end.

[Brain1ess]

Вычислить среднее арифметическое положительных элементов для массивов a(t), b(t), c(k). С помощью procedure или function. Напишите полную программу, пожалуйста.

[Stilet]

Ты что бот?

[Serge_Bliznykov]

Сообщение от Stilet

Ты что бот?

не факт.. Хотя, конечно, и не исключено.
Хочу пояснить, TC создал НОВУЮ тему. я сообщение из этой новой темы перенаправил сюда, в предыдущую тему.

Думаю, что он либо не видел ваш ответ, либо не разобрался в нём...

[Brain1ess]

Сообщение от Stilet

Ты что бот?

Я создал новую тему, т.к. эта прога не работает. Да и вообще 3 функции, 3 процедуры - странно как-то.

[Stilet]

Я ставлю тебя в известность, что у нас кросспортинг наказуем.
Имей это ввиду. Не нравится моя реализация - делай свою.

[Аватар]

А это и не прога, а руководство к действию для написания проги. Копипаста не пройдет, но пасаран