//PascalABC.NET v3.3 1633
const n = 15;
var arr: array [1..n] of integer;
begin
for var i:=1 to n do
arr[i]:=random(-5,5);
write('Исходный массив: ');
arr.PrintLn(', ');
var count:=0;
for var i:=1 to n do
if arr[i] > 0 then
count += 1;
writeln('Количество положительных элементов: '+count);
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Сколько чисел обработать?');
var s:=1;
loop n do begin
var k:=ReadInteger('Введите число');
if k>0 then s*=k
end;
Writeln('Произведение положительных чисел из ',n,' составляет ',s)
end.
<u>Пример</u>
Сколько чисел обработать? 5
Введите число 7
Введите число -4
Введите число 0
Введите число 9
Введите число -2
Произведение положительных чисел из 5 составляет 63
Var a,b:real;
<span>begin </span>
<span>writeln('Введите число для угадывания'); </span>
<span>read(a); </span>
<span>writeln('Введите число'); </span>
<span>repeat </span>
<span>read(b); </span>
<span>if b>a then writeln('Меньше'); </span>
<span>if b<a then writeln('Больше'); </span>
<span>until b=a; </span>
<span>writeln('Вы угадали'); </span>
<span>end. </span>