Принтер-это устройство вывода текстовой и графической информации из персонального компьютера на бумажный носитель. В современных моделях принтеров существует возможность вывода информации на какой-либо другой носитель, например синтетическая пленка.
Const n=10;
var a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51)-25;
write(a[i]:4);
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
writeln('среднее арифметическое элементов массива = ',s/n);
end.
Пример:
Массив A:
4 -25 -8 17 1 15 -23 -13 16 -22
среднее арифметическое элементов массива = -3.8
Program fofgogjoj;
var
n:integer;
a,s:real;
begin
repeat
Writeln('Введите вещественное число a');
Read(a);
until a>1;
s:=0;
n:=1;
while s<a-1/n do
begin
s:=s+1/n;
Write(n:4);
n:=n+1;
end;
Writeln;
Writeln('s=',s:0:4);
<span>end.
Не советую печатать число большее 10 xD</span>
нет потомучто они выполняют бессмысленные действия
это как сделать 1 шаг вперед а затем назад
вот както так
Var
n, s: integer;
begin
readln(n);
n := abs(n);
while n > 0 do
begin
s := s + n mod 10;
n := n div 10;
end;
writeln(s);
end.