Много ! 20-30 . дайте, , определения: таблица типа «объект - объект - несколько» таблица типа «свойство-свойство - объект» таблица типа «объект-объект - свойство»
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.
ostapbender1111
17.07.2020
Инстаграм это популярная социальная сеть во всём мире, каждый человек больше 16 лет может в нём зарегестрироваться и выкладывать туда фотки, сториз и запускать прямой эфир. Так же на твой аккаунт могут подписываться и следить за твоей жизнью. Ютуб это приложение где можно смотреть видео на разные темы, а также стать блоггером самим, начав снимать видео. Телеграмм это мессенджер, в нём можно переписываться с близкими людьми и подписываться на интересные тебе каналы. Фейсбук тоже популярная социальная сеть. У нас она не сильно популярна, большенство пользователей это американцы и тд
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Много ! 20-30 . дайте, , определения: таблица типа «объект - объект - несколько» таблица типа «свойство-свойство - объект» таблица типа «объект-объект - свойство»