Предмет: Информатика, автор: 788474

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

Приложения:

Ответы

Автор ответа: MrRise
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.


788474: а var же можно использовать только один раз?
MrRise: Если тебя задело то что я в цикле написал for var i:=1... то это я типа в программе для цикла создал переменную i, хоть мог также описать её заранее в блоке var (что сверху).
Но я сделал это специально для цикла, это типа профессионально)0
788474: Все,вопросов нет, спасибо тебе большое)))
MrRise: Я решил проверить программу и вышло что я накосячил, я исправил. Надеюсь ты ещё не начал переписывать))
788474: нет, я еще не началА)
Аноним: "это типа профессионально" - в отношении Поцкала это звучит смешно.
Похожие вопросы
Предмет: Математика, автор: kirillsauskin0
Предмет: Математика, автор: вера47