1)
Ввод чисел в массив:
program vvod_mass;
var
a: array[1..12] of integer;
i: integer;
begin
for i:=1 to 12 do
begin
write('a[', i, ']='); readln(a[i]);
end;
end.
2)
program otric;
var
a: array[1..10] of integer;
i,n: integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=-10+random(21);
writeln(a[i]);
end;
for i:=1 to 10 do if a[i]<0 then inc(n);
write('Кол-во отрицательных чисел массива: ', n);
end.
3)
program chetniy;
var
a: array[1..8] of integer;
i,n: integer;
begin
randomize;
for i:=1 to 8 do
begin
a[i]:=-10+random(21);
writeln(a[i]);
end;
for i:=1 to 8 do if a[i] mod 2 = 0 then inc(n);
write('Кол-во отрицательных чисел массива: ', n);
end.
Cls
input x
if x<0 then
z=log(-x)
end if
if x>=0 then
z=sqr(x+1)
end if
print z
Шаг 1. Рабочий поезд идет по главному пути и проходит весь за начало тупика. Затем он останавливается и задним ходом заходит в тупик, где отцепляет два вагона, а сам проходит вперед.
<span>Шаг 2. Пассажирский поезд проходит вперед за начало тупика, к последнему своему вагону прицепляет два вагона рабочего поезда и, двигаясь вперед, выводит их из тупика. Затем пассажирский поезд задним ходом отходит за начало тупика. </span>
<span>Шаг 3. Рабочий поезд (тепловоз и вагон) задним ходом полностью заходит в тупик. </span>
<span>Шаг 4. Пассажирский поезд отцепляет два рабочих вагона и идет по свободному пути в нужном направлении. </span>
<span>Шаг 5. Рабочий поезд (тепловоз и вагон) выходит из тупика, задним ходом подходит к своим вагонам, цепляет их и занимает свое первоначальное положение. </span>
Var
i:integer;
begin
for i=1 to 20 do
write(i:3);
end.
(i:3 - вывод i на 3 позициях( т. к. если выводить подряд, то все будет без пробелов))