Var s,i:integer; A:array[1..10] of integer; B:array[1..10] of integer; C:array[1..20] of integer; begin for i:=1 to 10 do begin read(a[i]); if a[i] mod 10 = 0 then begin s:=s+1; C[s]:=a[i]; end; end; for i:=1 to 10 do begin read(B[i]); if a[i] mod 10 = 0 then begin s:=s+1; C[s]:=b[i]; end; end; for i:=1 to s do begin write(c[i],' '); end; end.
1) переход от порядка к хаосу (уменьшение информации): - извержение вулкана: количество информации больше, когда горные породы находятся в спокойном состоянии, уменьшение информации выражается в том, что происходит выброс газов, горячего воздуха, пепла, разрушение горных пород, лава изливается; - ураган: частички песка и пыли поднимаются в воздух, уменьшается количество песка на поверхности земли - т.е. уменьшается количество информации 2) Переход от хаоса к порядку: - муравьи строят муравейник (в хаотичном состоянии находятся иголки хвойных деревьев, мелкие палочки), - сбор меда пчелами в соты; - птицы для перелета собираются в стаи. 3. Для сообщения: полезность, достоверность, краткость, актуальность для данного момента, независимость (от мнения и взглядов составителя сообщения) 4. Для знаний: понятность, актуальность, научность, точность, полнота излагамых знаний. 5. Автоматизированная линия на машиностроительном предприятии по сборке из деталей машины. Системы управления в современных автомобилях - контроль за скоростью движения. Системы управления самолетами: определение оптимального воздушного пути (траектории полета), система навигации - автоматическое предотвращение аварий и .д. 6. Сообщения с 1 битом информации: - Да / нет (на любой вопрос, который требует данного ответа) - выпал орел или решка - из двух цветов достали красный или черный - человек живет в одном из двух подъездов (в 1 или во 2)
A:array[1..10] of integer;
B:array[1..10] of integer;
C:array[1..20] of integer;
begin
for i:=1 to 10 do begin
read(a[i]);
if a[i] mod 10 = 0 then begin
s:=s+1;
C[s]:=a[i];
end;
end;
for i:=1 to 10 do begin
read(B[i]);
if a[i] mod 10 = 0 then begin
s:=s+1;
C[s]:=b[i];
end;
end;
for i:=1 to s do begin
write(c[i],' ');
end;
end.