В таблице приведена стоимость проезда между соседними железнодорожными станциями. Чиста, стоящие на пересечениях строк и столбцов таблицы, обозначают стоимость проезда между соответствующими соседними станциями. если пересечение строки и столбца пусто, то станции не являются соседними.
Uses crt; const n=10; var a,b,c: array [1..n] of integer; x,y,z,k: integer; begin y:=0; z:=0; for x:=1 to n do begin a[x]:=random(100)+1; if a[x] mod 2=0 then begin inc(y); b[y]:=a[x]; end else begin inc(z); c[z]:=a[x]; end; write(a[x]:4); end; writeln; k:=y; for y:=1 to k do write(b[y]:4); writeln; k:=z; for z:=1 to k do write(c[z]:4); end.
HTML-верстальщик Администратор базы данных Блоггер Веб-интегратор Веб-дизайнер Веб-программист Диктор Кодер Контент-менеджер Копирайтер Оператор ПК Программист Робототехник Системный администратор Тестировщик Эти профессии , в частности появились после появления компьютеров и поэтому работники этих профессий выжимают из пк многое, что без появления пк не получилось бы или надо бы было затратить много времени. Эти профессии кажутся для нас уже обыденностью, но до появления пк о них не знал ни кто. Мир не стоит на месте, появляются новые среды программирования, новые обеспечения, программы и т.д., которые требуют опытных специалистов..
const n=10;
var a,b,c: array [1..n] of integer;
x,y,z,k: integer;
begin
y:=0;
z:=0;
for x:=1 to n do begin
a[x]:=random(100)+1;
if a[x] mod 2=0 then begin
inc(y);
b[y]:=a[x];
end
else begin
inc(z);
c[z]:=a[x];
end;
write(a[x]:4);
end;
writeln;
k:=y;
for y:=1 to k do
write(b[y]:4);
writeln;
k:=z;
for z:=1 to k do
write(c[z]:4);
end.
Администратор базы данных
Блоггер
Веб-интегратор
Веб-дизайнер
Веб-программист
Диктор
Кодер
Контент-менеджер
Копирайтер
Оператор ПК
Программист
Робототехник
Системный администратор
Тестировщик
Эти профессии , в частности появились после появления компьютеров и поэтому работники этих профессий выжимают из пк многое, что без появления пк не получилось бы или надо бы было затратить много времени. Эти профессии кажутся для нас уже обыденностью, но до появления пк о них не знал ни кто. Мир не стоит на месте, появляются новые среды программирования, новые обеспечения, программы и т.д., которые требуют опытных специалистов..