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:=ReadArrReal('Вводите:',ReadInteger('n=')); Writeln('Положительных: ',a.Where(t->t>0).Count); Writeln('Отрицательных: ',a.Where(t->t<0).Count); Writeln('Нулевых: ',a.Where(t->t=0).Count) end.
begin var a:=Arr(-3.7,-3.1,-2.3,-1.6,-0.9,-0.2,0.5,1.2,1.9,2.6,3.3,4.0,4.2,5.4, 1.92,1.76,1.52,1.26,0.95,0.45,0.71,1.10,1.38,1.61,1.82,2.00,2.05,2.32); var d:=a.Length div 2; for var i:=0 to d-1 do Writeln(a[i]:5:2,a[i+d]:20:3) end.
1) Как вы считаете, влияет ли компьютер на здоровье человека?
2) Сколько времени вы проводите за компьютером в сутки(24 часа) ?
3)Какую работу чаще вы выполняете, пользуясь компьютером: печатаете, играете и т.д.
4) Через какой промежуток времени вы делаете между сеансами, работая за компьютером
5) Думаете ли вы, что длительные времяпровождение за компьютером негативно сказывается на зрении, позвоночнике, циркуляции крови во всём организме
6) Как вы полагаете, какое влияние оказывает электромагнитное излучение компьютера на здоровье человека
7) Что вы испытываете, работая долго за компьютером
8) Как вы предполагаете, каково влияние компьютерных игр на развитие личностных и моральных качеств
9) Считаете ли вы, длительное время провождение оказывает негативное влияние на психику человека
10) Ваши рекомендации по сохранению здоровья при длительной работе за компьютером
Объяснение: