pascal массив

[Fornarina]

составить программу,которая удаляет все элементы, большие данного числа А ( А вводить с клавиатуры).

[Wi1D]

Вот так!Массив я тут взял произвольный через RANDOM

uses CRT;
const n=10;
var
 a,i,j:integer;
 m,p:array[1..n] of integer;
 begin
 ClrScr;
	randomize;
	j:=0;
	 for i:=1 to n do
		 m[i]:=Random(99);
	 Writeln('MaccuB:');
		for i:=1 to n do
		Write(m[i],' ');
	 Writeln;
	 Writeln('BBeDuTE 4uCJlo');
	 readln(a);
	 for i:=1 to n do
		if m[i]<a then
		begin
			j:=j+1;
			p[j]:=m[i];
		end;
	 Writeln('BoT TToJly4eHHblu MaccuB: ');
	 for j:=1 to n do
	 if p[j]<>0 then
	 Write(p[j],' ');
	readln;
 end.

Проверял - Работает исправно!

[capta1n]

Проверял - Работает исправно!

не сказал бы

вообще если придерживаться вашему заданию, то надо создавать связный список, а не массив, потому что в задании четко сказано, что элемент надо УДАЛИТЬ, следовательно, его не должно существовать после выполнения программы, а если хотите просто вывести полученную последовательность - то можно, конечно, через массив и просто вывести то, что меньше A - так какой вариант предпочитаете, девушка?

[Wi1D]

Сообщение от capta1n

не сказал бы

а что НЕ работает?)

[начинающий кодер]

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

удаляет а не обнуляет!!!! вот это я место бы поменял хотя бы

for j:=1 to n do
	 if p[j]<>0 then
	 Write(p[j],' ');

на

 for i:=1 to j do
	 Write(p[i],' ');

[Wi1D]

capta1n задачи такого уровня не задают на динамическую память и на связной список!!!
по своей институтской программе знаю!
а вообще задангие вроде не конкретизирует ничего...

[capta1n]

а что НЕ работает?)

вместо рандома задайте свои значения - через readln - попробуйте ввести пару одинаковых элементов, элементов больше А и меньше - потом введите число А и смотрите, что получится

задачи такого уровня не задают на динамическую память!
по своей программе знаю!

а как вы определили уровень данной программы??? - уровень любой программы трактуется заданием, которое вы не поняли вовсе одна из многих проблем человека - это неумение слушать и внимательно читать поэтому я и спрашиваю девушку, как именно трактовать строчку "УДАЛИТЬ ЭЛЕМЕНТ" - просто у каждого слова есть определенное значение, ну и значение слова "УДАЛИТЬ" я знаю )))) это уж точно не обнулить, а вот данный комментарий подтверждает мои слова

программу,которая удаляет все элементы, большие данного числа
удаляет а не обнуляет!!!!

[Wi1D]

Сообщение от capta1n

вместо рандома задайте свои значения - через readln - попробуйте ввести пару одинаковых элементов, элементов больше А и меньше - потом введите число А и смотрите, что получится

ну если мой код с анамалиями - напишите свой!)))

[начинающий кодер]

capta1n задачи такого уровня не задают на динамическую память и на связной список!!!
по своей институтской программе знаю!
а вообще задангие вроде не конкретизирует ничего.

а зачем тут они??? можно и без них обойтись!!!

[capta1n]

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