Написать программу на паскале : требуется переписать элементы массива а в массив б,удвоив все элементы,меньшие 1-ого элемента,остальные переписать без изменений. массив а заполняется случайными числами
Информация informatio — осведомление, разъяснение, изложение) — в широком смысле абстрактное понятие, имеющее множество значений, в зависимости от контекста. В узком смысле этого слова — сведения (сообщения, данные) независимо от формы их представления. В настоящее время не существует единого определения термина информация. С точки зрения различных областей знания, данное понятие описывается своим специфическим набором признаков. Информация — совокупность данных, зафиксированных на материальном носителе, сохранённых и распространённых во времени и пространстве.
В то же время никак нельзя называть произведения искусства информацией. Эстетическое, культурологическое понимание термина информация в корне отличается от понимания информации в кибернетике, физике, биологии и т. д.
Органами чувств (приемниками информации) мы принимаем информацию об окружающем мире, в том числе и информацию о произведениях искусства. Но произведения искусства в связи с этим не становятся чистой информацией. Это мы при органов чувств, видя произведения искусства, воспринимаем информацию о произведениях искусства.
6) const n=10; var a: array[1..n] of integer; i,max,min : integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(21); write(a[i]:3); end; writeln; max:=a[1]; min:=a[1]; for i:=2 to n do begin if a[i] > max then max:=a[i]; if a[i] < min then min:=a[i]; end; writeln('L = ',max-min); end.
9) const n=10; var a: array[1..n] of real; i,k1,k2 : integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=10*random-5; write(a[i]:5:2); end; writeln; k1:=0; k2:=0; for i:=1 to n do if a[i]>0 then k1:=k1+1 else if a[i]<0 then k2:=k2+1; writeln('Положительных: ',k1,', отрицательных: ',k2,' нулевых: ',n-k1-k2); end.
16) const n=10; var a: array[1..n] of real; i : integer; begin for i:=1 to n div 2 do begin a[i]:=i; a[n div 2+i]:=sin(a[i]); end; for i:=1 to n div 2 do writeln(a[i]:4:1,a[n div 2+i]:6:2); end.
19) const n=10; var a: array[1..n] of integer; i: integer; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin a[i]:=random(51); write(a[i]:5); end; writeln; writeln('Выбранные элементы:'); i:=1; while i<=n do begin write(a[i],' '); i:=2*i; end; end.
// Внимание! Если программа не работает, обновите версию!
begin
var A:=ArrRandom(ReadInteger('n='),-99,99); A.Println;
var Б:=A.Select(x->x<A.First?2*x:x).ToArray; Б.Println
end.
Пример
n= 15
11 -39 -30 -40 97 12 51 91 29 -52 2 27 -81 20 9
11 -78 -60 -80 97 12 51 91 29 -104 4 27 -162 20 18