23.12.2012, 05:09 | #1 (permalink) |
Новичок
Регистрация: 23.12.2012
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Сжатие массива
program lab9_3; const n=10; var a: array[1..n] of real; b: array[1..n] of real; i,kol: integer; begin randomize; for i:=1 to n do begin a[i]:=random(100)-50; writeln('a=', a[i]); end; kol:=1; for i:=1 to n do begin if a[i]>3 then b[kol]:=a[i]; kol:=kol+1; writeln('b[i]=',b[i]); end; end. Результат: a=-38 a=9 a=48 a=34 a=-9 a=30 a=22 a=23 a=29 a=35 b[i]=0 b[i]=9 b[i]=48 b[i]=34 b[i]=0 b[i]=30 b[i]=22 b[i]=23 b[i]=29 b[i]=35 |
23.12.2012, 05:09 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Посоветую вам прочитать содержимое данных топиков Медленное копирование и сжатие файлов Сортировка массива |
23.12.2012, 08:19 | #2 (permalink) | |
Banned
Регистрация: 23.11.2010
Сообщений: 6,749
Сказал(а) спасибо: 18
Поблагодарили 27 раз(а) в 6 сообщениях
Репутация: 17514
|
Кроме оператора then, есть ещё и else
Вы просто обходите случай, когда число в первом массиве меньше трёх. Цитата:
В разных версиях компиляторов результаты могут быть разными. И, пожалуйста, выбирайте раздел для создания темы. Переношу... P.S. Формулируйте задачи точнее. |
|
23.12.2012, 15:08 | #4 (permalink) |
Новичок
Регистрация: 23.12.2012
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо, помогло, все работает!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|