Решить с паскаля: 1. в массиве все отрицательные элементы переместить в начало массива, а остальные в конец с сохранением порядка следования. 2. дана последовательность целых чисел, среди чисел есть одинаковые, создать массив различных чисел последовательности и полученный массив отсортировать по возрастанию.
297
431
Ответы на вопрос:
1var i,k: integer; a,b: array[1..10]of integer; begin writeln('исходный массив: '); for i: =1 to 10 do begin a[i]: =random(-10,10); write(a[i]: 3) end; for i: =1 to 10 do begin if a[i]< 0 then begin k: =k+1; b[k]: =a[i] end end; for i: =1 to 10 do begin if a[i]> =0 then begin k: =k+1; b[k]: =a[i] end end; writeln; writeln('преобразованный массив: '); for i: =1 to 10 do write(b[i]: 3) end. 2.var i,j,k,n,x,p: integer; a,b: array of integer; f: boolean; beginwrite('сколько будет чисел: '); readln(n); setlength(a, n); for i: =1 to n do begin f: =false; write('введите число: '); readln(x); for j: =0 to n-1 do if x=a[j] then f: =true; if f=false then begin a[k]: =x; k: =k+1; end end; setlength(b, k); for i: =0 to k-1 do b[i]: =a[i]; for i: = 0 to k-1 do for j : = 0 to k-1 do begin if b[i] < b[j] then begin p : = b[i]; b[i] : = b[j]; b[j] : = p end end; writeln('отсортированный массив: '); for i: =0 to k-1 do write(b[i]: 3)end.2.1var i,j,k,n,x,p: integer; a: array[1..1000] of integer; f: boolean; beginwrite('сколько будет чисел: '); readln(n); k: =1; for i: =1 to n do begin f: =false; write('введите число: '); readln(x); for j: =1 to n do if x=a[j] then f: =true; if f=false then begin a[k]: =x; k: =k+1; end end; for i: =1 to k-1 do for j: =1 to k-1 do begin if a[i] < a[j] then begin p: = a[i]; a[i]: = a[j]; a[j]: = p end end; writeln('отсортированный массив: '); for i: =1 to k-1 do write(a[i]: 3)end.
Сообщение содержит 36 символов, т.е. скорость передачи 36/0.00001 = 3.600.000 символов в секунду, после чего можно говорить, что некорректно задан вопрос,т.к. не указана кодировка символов. если она указана, то 3.600.000 умножаешь на количество бит, которыми кодируется символ
Популярно: Информатика
-
hassnallameozm4zm10.11.2020 11:12
-
bonipasol130.03.2021 00:24
-
катюха28202.03.2022 16:46
-
lushnikov200406.11.2022 17:18
-
Aruzhan555521.07.2021 02:36
-
Kizi8924.11.2020 11:31
-
Fulfevgen16.03.2022 23:48
-
Akosh1122.10.2020 18:34
-
nuriksabirjan02.12.2021 10:05
-
Верочка131702.08.2020 02:29