Информатика 11 дней назад Shorgolj789

Создать программу на языке паскаль, определяющую среднее значение оценок за первую четверть в 8Ж классе

Ответ
1
alisiamsk

Ответ: type my_array = array[1..20] of integer;

procedure input_array(var c: my_array; n: integer);

begin

for var i:= 1 to n do

read(c[i]);

end;

procedure count_array(var c: my_array; n: integer);

begin

var d: integer;

var x: real;

for var i:= 1 to n do

begin

d:= d + c[i];

x:= d/n;

end;

writeln(x);

end;

begin

var a: my_array;

var size: integer;

read(size);

input_array(a, size);

count_array(a, size);

end.

alisiamsk: Ну, там можно до 100 поменять в первой строке, а то врядли в классе будет 100 учеников. Просто это моя старая программа по среднему арифметическому, надеюсь сойдет.
alisiamsk: *вряд ли
Shorgolj789: Спасибо, но не совсем подходит, тут много команд, которые в восьмом классе не проходят
alisiamsk: Я это я пятом проходил :D