Это не как сделать. Нужно сразу делать презентацию в PowerPoint"е
Var
A: array [1..16] of real;
i, n: integer; //n - счетчик
begin
n:= 0;
for i:= 1 to 16 do
begin
writeln('Введите число');
readln(A[i]);
if A[i] = 0 then n:= n + 1;
end;
writeln('Количество нулевых элементов: ', n);
end.
<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadSeqInteger('Введите стороны прямоугольника',3).Sorted.ToArray;
if Sqr(a[2])=Sqr(a[0])+Sqr(a[1]) then Writeln('Могут')
else Writeln('Не могут')
end.
Program helpglupshkolnikam;
uses crt;
var a, b: real; i: integer;
begin
randomize;
readln(a,b);
for i:= 1 to 5 do
write(' ',(Random()*(b-a)+a):0:3, ' ');
<span>end.</span>