Подсчитать среднее арифметическое чисел, находящихся в файле number.txt. Файл заполняется программно либо с клавиатуры, либо случайными числами Program example_4;
var k, a, s, sa: integer;
sa: real;
f: file of integer;
begin
k:=0;
s:=0;
assign (f, ‘number.txt’);
reset (f);
while not eof (f) do
begin
read (f,a);
s:=s+a;
k:=k+1;
end;
close (f);
sa:=s/k
writeln (sa:9:2);
end.
Подсчитать среднее арифметическое чисел, находящихся в файле number.txt. Файл заполняется программно либо с клавиатуры, либо случайными числами
надо
1) это сведения о чём то
2)обоняние , осязание, зрение , слух.
3) Блок питания
— Центральный процессор
— Внешняя видеокарта (ее разъем PCI, AGP, PCI-Express)
— Оперативная память
— Оптический DVD привод
— Трехдюймовый дисковод гибких дисков (FDD 3,5)
— Жесткий диск (винчестер)
— Материнская плата (фиолетовая)
4) Основными устройствами вывода являются монитор, принтер, плоттер акустические колонки, наушники.
5) Backspace
6) PageDown
7) это то что содержит и хранит информацию
8) клавиатура
9) Сканер
10) клавиатуре, Диска, принтере или на бумагу
Объяснение:
//PascalABC.NET
uses GraphABC;
var c: integer;
begin
window.IsFixedSize := true;//запрет изменения размера экрана
window.Clear(cllightblue);//очистка экрана синим цветом
pen.Color := clred;//меняем цвет пера на красный
for var i := 0 to 19 do//цикл для отрисовки линий
begin
c := (window.Height div 19) * i;//сдвиг линнии по y
line(0, 0 + c, window.Width, window.Height - c);//рисуем линию
end;
end.
Объяснение:
uses graphabc;
begin
circle(50,50,50);
circle(50,50,20);
circle(150,50,50);
circle(150,50,20);
circle(250,50,50);
circle(250,50,20);
circle(350,50,50);
circle(350,50,20);
circle(450,50,50);
circle(450,50,20);
circle(550,50,50);
circle(550,50,20);
end.