Ответ:
Объяснение:
Просто подставляешь формулы эти в ячейку, прописываешь в скобках какие ячейки нужно подсчитать. И вуаля , готово :)
Var a, b:real;
I:integer;
begin
I:=1;
b:=0;
while I <> 10 do
begin
read (a);
b:=b+a;
I:=I+1;
end;
b:=b/10;
writeln (b);
end.
____________________
var a, b:real;
I:integer;
begin
I:=0;
b:=0;
repeat
read (a);
b:=b+a;
I:=I+1;
until I=10;
b:=b/10;
writeln (b);
end.
_____________________
var a, b:real;
I:integer;
begin
b:=0;
for I:=1 do 10 to
begin
read (a);
b:=b+a;
I:=I+1;
end;
b:=b/10;
writeln (b);
end.
Вот здесь почитайте пожалуйста
1) Е:\ОЗЁРА\<span>Голомянка.bmp
2) </span>C:\новое\поколение\выбирает\чтение.doc
3) <span>примирение.doc</span>