Спаскалем. 6.) дана последовательность чисел а1, а2, ан. указать наименьшую длину числовой оси, содержащую все эти числа. 9.) дан массив действительных чисел, размерность которого н. подсчитать, сколько в нем отрицательных, положительных и нулевых элементов. 16.) в одномерном массиве размещены: в первых элементах значение аргумента, в следующих - соответствующие им значения функции. напечатать элементы этого массива в виде двух параллельных столбцов (аргументы и значения функции). 19.) дан целочисленный массив с количеством элементов н. напечатать те его элементы, индексы которых являются степенями двойки (1,2,4,8,
172
294
Ответы на вопрос:
6) const n=10; var a: array[1..n] of integer; i,max,min : integer; beginrandomize; 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.пример: исходный массив: 10 8 8 6 4 16 18 10 11 13l = 149)const n=10; var a: array[1..n] of real; i,k1,k2 : integer; beginrandomize; 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.пример: исходный массив: -1.03 2.79-3.60 0.33-3.69-4.69-2.34-4.19 1.20 1.74положительных: 4, отрицательных: 6 нулевых: 016)const n=10; var a: array[1..n] of real; i : integer; beginfor 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.пример: 1.0 0.842.0 0.913.0 0.144.0 -0.765.0 -0.9619)const n=10; var a: array[1..n] of integer; i: integer; beginrandomize; 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.пример: исходный массив: 8 38 22 45 36 23 21 13 5 13выбранные элементы: 8 38 45 13
// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! №6 begin var a: =arrrandom(readinteger('n=',99).println; writeln('[',a.min,'; ',a.max,']') end. пример n= 13 72 -77 -88 -99 -2 -61 67 40 -30 -28 91 -56 29 [-99; 91] №9 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. пример n= 10 вводите: 3.7 12.6 -4 0 -13.2 0.7 0 14 2.12 0.004 положительных: 6 отрицательных: 2 нулевых: 2 №16 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. результат -3.70 1.920 -3.10 1.760 -2.30 1.520 -1.60 1.260 -0.90 0.950 -0.20 0.450 0.50 0.710 1.20 1.100 1.90 1.380 2.60 1.610 3.30 1.820 4.00 2.000 4.20 2.050 5.40 2.320 №19 begin var n: =readinteger('n='); var a: =arrrandom(n,-50,50); a.println; var i: =1; while i< =n do begin print(a[i-1]); i*=2 end; writeln end. пример n= 17 -43 -41 -37 -43 12 45 -34 -19 -38 33 -34 39 -40 33 -46 4 39 -43 -41 -43 -19 4
varn,i: integer; x0,y0,x1,y1,x2,y2,s: real; begin readln(n); s: =0; readln(x0,y0); x1: =x0; y1: =y0; for i: =2 to n do begin readln(x2,y2); s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); x1: =x2; y1: =y2; end; x2: =x0; y2: =y0; s: =s+sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2)); writeln(s: 10: 2); end.
Популярно: Информатика
-
themaximka4116.01.2021 23:20
-
aminyshaa07.11.2021 21:51
-
MoLoDaYa66626.08.2020 14:28
-
Lamah19.09.2020 02:26
-
tasinas25.10.2022 07:19
-
dashalapteva12.11.2021 14:41
-
lyudsiya133726.02.2023 01:30
-
gumballl108.02.2020 13:36
-
bodrenkodaria29.09.2020 08:54
-
lystuchaanna2010.05.2020 20:29