Предмет: Информатика,
автор: 788474
Помогииите с задачей по информатике
Приложения:
Ответы
Автор ответа:
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 же можно использовать только один раз?
Но я сделал это специально для цикла, это типа профессионально)0
Похожие вопросы
Предмет: Математика,
автор: kirillsauskin0
Предмет: Українська мова,
автор: bsmatko8
Предмет: География,
автор: sashakozu
Предмет: Математика,
автор: vanyabobk
Предмет: Математика,
автор: вера47