Функции.

[goshanich]

Добрый день! Требовалось написать программу для поиска массива( из 3), у которого сумма обратных величин наибольшая(c использованием функций). Написал по образцу. Выдает ошибку на строки:
s1:=mas1(A);
writeln(res,'s1=',s1:5:2);
s2:=mas2(B);
writeln(res,'s2=',s2:5:2);
s3:=mas3(C);
writeln(res,'s3=',s3:5:2);

Ошибка:[Error] Project1.dpr(31): Types of actual and formal var parameters must be identical.

Код в архиве.

Спасибо!

[Stilet]

Не подтверждаю ошибку. Мой компилятор сказал что у тебя модули в uses неправильно прописаны - имя модуля неверное.

[goshanich]

А как нужно переименовать модули, чтобы заработали?

[Stilet]

А как файлы модулей у тебя называются?
Вот такое имя и пиши в uses проги где вызываешь эти модули.

[goshanich]

Все! Спасибо большое!)