@10AGE

Написал программу, но при выводе на экран выдаёт что-то странное, не могу понять в чем проблема. Скопируйте пожалуйста код и помогите решить проблему, заранее благодарен! Программа должна состоять из процедур и функций.

type
myArray = array [1..20] of integer;

var
a, b, c, d: myArray;
n: byte;
s, k: integer;
sred: real;

function inputArray(m: byte): myArray;
var
x: myArray;
i: byte;
begin
for i := 1 to m do
x[i] := random(10) - 5;
result := x;
end;

procedure outputArray(m: byte; x: myArray);
var
i: byte;
begin
for i := 1 to m do
write(x[i]:3);
end;

function srAr(m: byte; x: myArray): real;
var
i: byte;
sr: integer;

k: real;
begin
for i := 1 to m do
begin



if x[i] div 3 = 0 then
begin
sr := sr + x[i];
k := k + 1;
end;




end;
sred := sr / k;
result := sred;
end;

begin
write('n='); readln(n);
write('a=');
a := inputArray(n);
outputArray(n, a);
writeln;

write('Среднее арифметическое элементов делящихся на 3 = ', srAr);

end.

0

@JuriiMW

Это потому, что вы запускаете программу не в PascalABC!
Тот сразу сказал, что ошибка: неверное количество фактических параметров
Сругнулся на строку 61

0

@10AGE

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

0

@JuriiMW

Можно! Разрешаю!

Я же ясно написал, на что ругается.
Читайте внимательно https://www.cyberforum.ru/post15765275.html

0

@10AGE

Если у меня Pascal ABC.NET , как я могу исправить эту ошибку ? Не качав Pascal ABC!

0

@JuriiMW

Ну вот же!
Глаза раскрой!!!

Миниатюры

 

0

@10AGE

В программе нет 61 строки, там их 52. Как я могу попытаться исправить того чего нет, ну или вы ошиблись с номером строки!

0

@JuriiMW

А скопипасть приведённый код в иде
Следующий раз нужно оформлять правильно тему

0

@10AGE

Можете дать ссылку , где написано как правильно оформлять тему?

0

@JuriiMW

Легко!
https://www.cyberforum.ru/announcement.php?a=3

1