Program n1;
const nn=1000;
var x: array[1..nn] of integer;
m,i:integer;
begin
writeln('Введите размерность массива'); readln(m);
writeln('Введите массив');
for i:=1 to m do readln(x[i]);
for i:=1 to m do
if x[i]=0 then write(x[i],' ');
end.<span>
</span>
Program n1;
const n=20;
var a: array[1..n] of integer;
i,m: integer;
begin
writeln('исходный массив:');
for i:=1 to n do
begin
a[i]:=random(15);
write(a[i],' ');
end;
writeln;
write('введите позицию: ');
readln(m);
if (m>=1) and (m<=n) then
begin
a[m]:=10;
writeln('полученный массив:');
for i:=1 to n do write(a[i],' ');
end;
end.
<span>Двоичный код:<span>000011100010111100101111000101000000111000101100000110010000111000101111
0001111000001110001011100010110000001110001011100001111000001110001011100
0011101000011100010111000101110000011100010111000011011000101000000111000
1011100010000100001110001011100010000000010100000011100010111000011100000
0111000101111000110010000111000101111000111000000111000101110001011110000
1110001011100010111100001110001011110010101100010100000110100001010000001
11000101110000111010001010000011011</span></span>
Цикл с параметром может не выполниться, если максимальное значение счётчика меньше минимального( в Pascal - FOR).
Цикл с предусловием тоже может не выыполниться, если при первом заходе условие не выполняется( в Pascal - WHILE). Цикл с постусловием выполнится минимум 1 раз( в Pascal - REPEAT).
var x1,y1,z1,x2,y2,z2,d:real;
begin
writeln('Введите координаты первой точки');
readln(x1,y1,z1);
writeln('Введите координаты второй точки');
readln(x2,y2,z2);
d:=sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)+(z2-z1)*(z2-z1));
wrileln(d);
end.