Назовите составляющие, на которые можно разделить весь наш мир

272

370

Посмотреть ответы 2

Ответы на вопрос:

vika8914

Информатика

4,4(85 оценок)

Мегамир, макромир, микромир.

Alenadobro97

Информатика

4,7(24 оценок)

Dim a(100) as integer, odin as boolean dim k as integer , i as integer randomize for i = 1 to 100 a(i) = int(rnd*100) + 1 ' заполняем массив случайными числами от 1 до 100 print a(i) & chr(9); ' выводим начальный массив через табуляцию next i print "повторяющиеся элементы" for i = 1 to 100 for k = i+1 to 100 if a(i) = a(k) then print a(i) & chr(9); next k next i print "не повторяющиеся элементы" for i = 1 to 100 odin = true for k = i+1 to 100 if a(i) = a(k) then odin = false next k if odin = true then print a(i) & chr(9); next i end