Ответы на вопрос:
1) быстрая доставка 2) гарантия, что письмо не потеряется 3) не нужно платить деньги за доставку 4) не нужно выходить из дома 5) большая на бумаге и конверте
{pascalabc.net } const nn=100; var a: array[1..nn] of integer; n: integer; procedure ainit(p,q: integer); { инициализирует массив случайными целыми значениями из интервала [p; q] } var i,k: integer; begin randomize; k: =q-p+1; for i: =1 to n do a[i]: =random(k)+p end; procedure aout(k: integer); { выводит в строку значения эементов массива, отводя элементу k позиций } var i: integer; begin for i: =1 to n do write(a[i]: k); writeln end; function amax(): integer; { возвращает максимальное значение элемента в массиве } var i,m: integer; begin m: =a[1]; for i: =2 to n do if m< a[i] then m: =a[i]; amax: =m end; function sumbeforelastpositive(): integer; { возвращает сумму элементов массива, расположенных до последнего положительного элемента } var i,j,s: integer; flag: boolean; begin i: =n; flag: =false; while (not flag) and (i> =1) do begin flag: =(a[i]< =0); if not flag then dec(i) end; s: =0; for j: =1 to i-1 do s: =s+a[j]; sumbeforelastpositive: =s end; procedure ashrink(pa,pb: integer); { процедура сжимает массив, удаляя из него элементы, модуль которых находится в интервале [pa; pb]. освободившийся элементы заполняются нулями. } var i,j,k: integer; flag: boolean; begin k: =0; i: =1; while i< =n do if a[i] in [pa..pb] then begin if k=0 then k: =i-1; j: =i+1; flag: =false; while (not flag) and (j< =n) do begin flag: =not (a[j] in [pa..pb]); if not flag then inc(j); end; if flag then begin inc(k); a[k]: =a[j]; i: =j+1 end else i: =n+1 end else begin inc(k); a[k]: =a[i]; inc(i) end; for i: =k+1 to n do a[i]: =0 end; var p,q,k,b,c: integer; begin write('укажите количество членов в массиве: '); read(n); write('укажите интервал значений элементов массива: '); read(p,q); write('укажите интервал исключаемых элементов массива: '); read(b,c); write('укажите количество позиций для вывода значений элемента: '); read(k); ainit(p,q); write('исходный массив'); aout(k); writeln('значение максимального элемента равно ',; writeln('сумма до последнего положительного равна ',; writeln('сжатый массив'); ashrink(b,c); aout(k) end. тестовое решение: укажите количество членов в массиве: 15 укажите интервал значений элементов массива: -6 9 укажите интервал исключаемых элементов массива: -2 3 укажите количество позиций для вывода значений элемента: 3 исходный массив 7 7 7 -1 5 5 -5 6 0 -1 3 2 -4 1 8 значение максимального элемента равно 8 сумма до последнего положительного равна 35 сжатый массив 7 7 7 5 5 -5 6 -4 8 0 0 0 0 0 0
Популярно: Информатика
-
Котошкольник117.02.2020 02:53
-
ВладиславПрокофьев11.12.2021 01:12
-
nazarborovichok04.06.2021 09:41
-
190G14.02.2020 20:08
-
BRAJJ10.03.2022 03:03
-
Vovanik21215.07.2020 07:16
-
рлжжх24.04.2022 05:03
-
milka2018222.11.2021 16:26
-
аннасукманова02050819.08.2020 20:57
-
naklus08.12.2021 10:08