11.12.2015, 19:28 | #1 (permalink) |
Новичок
Регистрация: 11.12.2015
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль, помогите
заменить все элементы массива, которые больше 10, на 100 (12). |
11.12.2015, 19:28 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
решение проблемы должно упроститься, если прочитать содержимое схожих тем Помогите решить. Паскаль АБС Паскаль.Массивы.Помогите |
11.12.2015, 21:41 | #2 (permalink) |
Member
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
|
Код:
var x:array[1..12] of integer; i,n:integer; begin n:=12; Randomize; i:=1; While i<=n do begin x[i]:=Random(25)-10; Inc(i); end; i:=1; repeat if x[i]>10 then x[i]:=100; Write(x[i]:4); Inc(i); until i>n; Writeln; Readln; end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|