//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write('их произведение: ',ReadReal('введите 1 число:')*ReadReal('введите 2 число:'));
end.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),10,99);
a.Println.Sorted.Println;
Writeln('Количество разных чисел ',a.Distinct.Count)
end.
<u><em>Тестовое решение:</em></u>
n= 20
60 33 12 47 79 81 33 26 73 98 82 81 71 70 96 48 13 66 29 85
12 13 26 29 33 33 47 48 60 66 70 71 73 79 81 81 82 85 96 98
Количество разных чисел 18
Клавиша - действие
1 - 1
2 - 8
3 - 2
4 - 5
5 - 7
6 - 4
7 - 6
8 - 3
Const
N = 10; //твое число N
var
i,c,nc,X: integer;
begin
for i:=1 to N do
begin
READLN(X);
if(X >= 0) then inc(c)
else inc(nc);
end;
if (c > nc) then Writeln('четных больше')
else
begin
if(c < nc) then Writeln('нечетных больше')
else if(c = nc) then writeln('кол-во четных и нечетных чисел равно');
end;
end.
Макет для слайдов, эффектов, и предназначены для ускоренного создания новых презентаций. Можно применять разные шаблоны: пользовательские или которые уже встроенные в PowerPoint или которые с веб-сайтов вы смогли успешно загрузить.