Дан массив из 10 элементов целого типа. найти минимальный элемент массива, умножить его на 6, а затем вычесть его из каждого элемента. весь массив напечатать.
Var a:array [1..10] of integer; i,k,m:integer; begin for i:= 1 to 10 do a[i]:= Random(0,100); writeln(a); m:=a[1]; for i:=2 to 10 do if a[i]<m then m:=a[i]; m:=m*6; for i:= 1 to 10 do a[i]:= a[i]-m; writeln(a); end.
1) переход от порядка к хаосу (уменьшение информации): - извержение вулкана: количество информации больше, когда горные породы находятся в спокойном состоянии, уменьшение информации выражается в том, что происходит выброс газов, горячего воздуха, пепла, разрушение горных пород, лава изливается; - ураган: частички песка и пыли поднимаются в воздух, уменьшается количество песка на поверхности земли - т.е. уменьшается количество информации 2) Переход от хаоса к порядку: - муравьи строят муравейник (в хаотичном состоянии находятся иголки хвойных деревьев, мелкие палочки), - сбор меда пчелами в соты; - птицы для перелета собираются в стаи. 3. Для сообщения: полезность, достоверность, краткость, актуальность для данного момента, независимость (от мнения и взглядов составителя сообщения) 4. Для знаний: понятность, актуальность, научность, точность, полнота излагамых знаний. 5. Автоматизированная линия на машиностроительном предприятии по сборке из деталей машины. Системы управления в современных автомобилях - контроль за скоростью движения. Системы управления самолетами: определение оптимального воздушного пути (траектории полета), система навигации - автоматическое предотвращение аварий и .д. 6. Сообщения с 1 битом информации: - Да / нет (на любой вопрос, который требует данного ответа) - выпал орел или решка - из двух цветов достали красный или черный - человек живет в одном из двух подъездов (в 1 или во 2)
Код для примитивной "рисовалки", рисуете что хотите. Для сохранения на рабочий стол нажимаете клавишу "Enter"
// PascalABC.NET // Версия 3.3.5 сборка 1662 (29.04.2018)
uses GraphABC;
begin Window.Title := 'Рисование мышью(Enter - сохранить на раб. стол)'; Pen.Color := Color.Red; Pen.Width := 3; OnMouseDown := (x,y,mb) -> MoveTo(x,y); OnMouseMove := (x,y,mb) -> if mb=1 then LineTo(x,y); var a:=System.Security.Principal.WindowsIdentity.GetCurrent.Name; OnKeyDown:=k->if k=13 then begin SaveWindow('C:\Users\'+copy(a,pos('\',a)+1,a.Length-pos('\',a)+1)+'\Desktop\image.png'); Window.Close; end; end.
a:array [1..10] of integer;
i,k,m:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(0,100);
writeln(a);
m:=a[1];
for i:=2 to 10 do
if a[i]<m then m:=a[i];
m:=m*6;
for i:= 1 to 10 do
a[i]:= a[i]-m;
writeln(a);
end.