03.11.2014, 23:50 | #1 (permalink) |
Новичок
Регистрация: 03.11.2014
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Массивы
Задание: вывести номера элементов массива, которые меньше последнего и их количество. |
03.11.2014, 23:50 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
В интернете много аналогичного, вот, что нашлось у нас Массивы Массивы |
04.11.2014, 09:22 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Простите, но подобными ясельными задачками не занимаемся. Равно как и складыванием пирамидок из кубиков, а также кормлением (ложечку за папу... за маму... и т.д.). Давайте уж самостоятельно.
|
04.11.2014, 15:58 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ладно уж.
Только уточните: Что считывается из файла? Только количество элементов массива? Сами элементы? Как это оформлено в файле (напр. в первой строке - количество, дальше через пробел - сами элементы, или как-то иначе)? |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
04.11.2014, 20:12 | #6 (permalink) | ||
Новичок
Регистрация: 03.11.2014
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Из файла mass.dat считываются сами элементы массива, а количество элементов массива задаем при запуске проекта.
Файл mass.dat имеет вид: Цитата:
Цитата:
|
||
04.11.2014, 20:49 | #7 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Код:
Const Nmax=7; Var A:Array[1..Nmax] of Integer; m,n,i:Integer; f:Text; Begin Write('m= '); Readln(m); Assign(f,'mass.dat'); Reset(f); for i:=1 to m do Read(f,A[i]); Close(f); Writeln('Array A:'); for i:=1 to m do write(A[i]:4); Writeln; Writeln('Numbers of elements < last'); n:=0; for i:=1 to m-1 do if A[i]<A[m] then begin write(i:4); Inc(n); end; Writeln; Writeln('The quantity of such elements:'); Writeln(n); Readln End. |
04.11.2014, 20:56 | #8 (permalink) |
Новичок
Регистрация: 03.11.2014
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо большое)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|