Question

Помогииите с задачей по информатике

Answer 1

const

y = 10;

var

a : array [1..y] of real;

avg : real;

s : integer;

begin

for var i:=1 to y do

read(a[i]);

for var i:=1 to y do

if a[i]<0 then begin

avg:= avg+a[i];

s:= s + 1;

end;

avg:= avg/s;

write(avg);

end.

Answer 2

Если тебя задело то что я в цикле написал for var i:=1... то это я типа в программе для цикла создал переменную i, хоть мог также описать её заранее в блоке var (что сверху).
Но я сделал это специально для цикла, это типа профессионально)0

Answer 3

Все,вопросов нет, спасибо тебе большое)))

Answer 4

Я решил проверить программу и вышло что я накосячил, я исправил. Надеюсь ты ещё не начал переписывать))

Answer 5

нет, я еще не началА)

Answer 6

"это типа профессионально" - в отношении Поцкала это звучит смешно.