Функции, Очень нужна помощь Опции

[yandex]

Вычислить среднее арифметическое положение элементов для массива А(N1), B(N2), C(N3).
N<100 N2<100 N3<100. Функции

[Krjuger]

Ну,как я понимаю у него три числа(длины массивов) и ему надо вывести среднее арифметическое)))) на мой взгляд,бред.

for i:=1 to 3 do begin
 read(n);
 s:=s+n;
writeln(s/3);

Все вводиш 3 длинны и получаеш среднее.То что просили,то и получили,если не нравица,то уточняйте,что надо.и что значит функции?

function aGUuuuuuuu of real;
var i,s:integer;
begin
for i:=1 to 3 do begin
 read(n);
 s:=s+n;
end;
aGUuuuuuuu:=s/3;
end;

Сообщение отредактировано: Krjuger - 11.06.2009 18:52

[volvo]

если не нравица,то уточняйте,что надо

Мне не нравиЦА... Уточняю, что именно: Тот БРЕД, что ты постишь все время...

function aGUuuuuuuu of real;
var i,s:integer;
for i:=1 to 3 do begin
 read(n);
 s:=s+n;
end;
aGUuuuuuuu:=s/3;

Иначе как бредом считать не могу...

"Я тебя предупреждал? Предупреждал... Ну, тогда извини" (С) "Джентльмены удачи"