1 <span>Ввести с клавиатуру 10 произвольных чисел. Подсчитать и напечатать количество положительных, отрицательных и нулевых чисел.
4) Среднее арифметическое.
2)</span>
Данный треугольник означает разницу, то есть минус
В программе алгоритм неверный, так дубликаты не найти.
Поэтому программа в основном переделана.
var
n:integer;
a:array[0..9] of boolean;
d,i:byte;
r:boolean;
begin
Writeln('Введите натуральное число'); Readln(n);
for i:=0 to 9 do a[i]:=False;
r:=False;
while n>0 do begin
d:=n mod 10;
if a[d] then begin
r:=True;
break
end
else a[d]:=True;
n:=n div 10
end;
if r then Writeln('да')
else Writeln('нет')
end.
Uses crt;
var n,s:integer;
begin
read(n);
s:=0;
while n<>0 do
begin
s:=s+n;
read(n);
end;
writeln(s);
<span>end.
Программа считывает введённые элементы, пока не введён 0, и выводит их сумму.</span>
Координаты в десятичной системе:
1. (3,5)
2. (3,6)
3. (4,6)
4. (4,7)
5. (5,7)
6. (5,8)
7. (6,8)
8. (6,6)
9. (10,6)
10. (10,8)
11. (11,8)
12. (11,7)
13. (12,7)
14. (12,6)
15. (13,6)
16. (13,5)
17. (12,5)
18. (12,4)
19. (11,4)
20. (11,3)
21. (10,3)
22. (10,5)
23. (6,5)
24. (6,3)
25. (5,3)
26. (5,4)
27. (4,4)
28. (4,5)
1. (3,5)