Для динамического массива подсчитать количество его элементов, больших последнего его элемента

@Sashok1996 · Регистрация: 14.11.2013

Author24 — интернет-сервис помощи студентам

Для динамического массива подсчитать количество его элементов, больших последнего его элемента.

@Slayez · 18.04.2014, 21:01

Буду по частям кидать код и объяснять.
Так это раздел объявления переменных:

Delphi

1 2	var a:array of integer; n,i:integer;

Дальше я напишу формирование массива при введении N - кол-ва элементов.

Delphi

1 2	SetLength(a,n); for i:=0 to n do a[i]:=random(500)-250;

Теперь вывод на экран элементов:

Pascal

1	for i:=0 to n-1 do if a[n]<a[i] then writeln(a[i]);

@Sashok1996 · 21.04.2014, 21:49 **[ТС]**

не работает

@Ромаха · 21.04.2014, 22:31

Мда.. Местный гений не удосужился написать begin\end..

@Sashok1996 · 21.04.2014, 23:11 **[ТС]**

она все равно не работает

@Ромаха · 21.04.2014, 23:15

ну а теперь он не находит модуль as.. вообщем ужасъ..

@Sashok1996 · 21.04.2014, 23:22 **[ТС]**

можешь кинуть полностью задачу,она у меня не работает

@Slayez · 22.04.2014, 19:45

Потому что ты не думаешь!

Добавлено через 1 минуту

Pascal

Program newaaray;
var a:array of integer;
     n,i:integer;
begin
Writeln('Wwedite N');
SetLength(a,n);
for i:=0 to n do a[i]:=random(500)-250;
for i:=0 to n-1 do if a[n]<a[i] then writeln(a[i]);
readln;
end;

@Sashok1996 3 / 1 / 1 Регистрация: 14.11.2013 Сообщений: 164
		1
	Для динамического массива подсчитать количество его элементов, больших последнего его элемента 18.04.2014, 20:40. Показов 1154. Ответов 7 Метки нет (Все метки) Для динамического массива подсчитать количество его элементов, больших последнего его элемента. 0

@Sashok1996 3 / 1 / 1 Регистрация: 14.11.2013 Сообщений: 164
	21.04.2014, 21:49 [ТС]	3
	не работает Миниатюры 0

@Ромаха 353 / 134 / 28 Регистрация: 16.12.2012 Сообщений: 607 Записей в блоге: 1
	21.04.2014, 22:31	4
	Мда.. Местный гений не удосужился написать begin\end.. 0

@Sashok1996 3 / 1 / 1 Регистрация: 14.11.2013 Сообщений: 164
	21.04.2014, 23:11 [ТС]	5
	она все равно не работает Миниатюры 0

@Ромаха 353 / 134 / 28 Регистрация: 16.12.2012 Сообщений: 607 Записей в блоге: 1
	21.04.2014, 23:15	6
	ну а теперь он не находит модуль as.. вообщем ужасъ.. 1

@Sashok1996 3 / 1 / 1 Регистрация: 14.11.2013 Сообщений: 164
	21.04.2014, 23:22 [ТС]	7
	можешь кинуть полностью задачу,она у меня не работает 0

	22.04.2014, 19:45