<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger; Writeln(n*' ',n)
end.
<u>Пример</u>
7
7
Program N12345678901011121314;
uses crt;
const n=8;
var
e:array[1..n] of integer;
vid,nom,i: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Елементи масиву:');
randomize;
nom:=0; //номер 5-го елементу
vid:=0; // к-ть негативних елементів
for i:=1 to n do
begin
e[i]:=random(100)-50;
write (e[i]:5);
if e[i]<0 then
vid:=vid+1;
if (e[i]<0) and (vid = 5) then
nom:=i;
end;
writeln();writeln();
if nom<>0 then
writeln('Номер 5-го негативного елементу: ',nom)
else
writeln('Такого елемента немає');
end.
6,815744 Мбайт = 6.815.744 байт.
6 Мегабайт и остаток 815744
Program rok;
var a:array [1..30] of integer;
i,s,n:integer;
begin
s:=0;
n:=0;
randomize;
for i:=1 to 30 do
begin
a[i]:=random (25)-10;
write(a[i],' ');
end;
writeln;
for i:=1 to 20 do
begin
if (a[i]>0) then
s:=s+1;
if (a[i]=0) then
n:=n+1;
end;
writeln ('Количество
положительных чисел=',s);
writeln ('Количество
нулей=',n);
end.
