Найти все элементы массива целых чисел, больше заданного числа

@L_Egor · Регистрация: 15.10.2013

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

не могу написать программу на паскале
задан массив

Pascal

1	mas:array[1..n] of integer;

как сделать так чтоб n вводилось с клавиатуры?
если пишу так:

Pascal

program lab;
var n: integer;
mas:array[1..n] of integer;
writeln('Введите размер массива');
readln(n);

то выдает сообщение что вместо n ожидалось константное выражение.
а в целом задача звучит так :
Найти все элементы массива целых чисел, больше заданного числа.

заранее благодарю за ппомощ

@Sead · 21.10.2013, 09:09

Pascal

program d;
uses crt;
var
mas:array[1..100] of real;
i,n,t:integer;
ch:real;
begin
randomize;
writeln('Vvedi razmer massiva');
readln(n);
writeln('Vvedi chislo');
readln(ch);
writeln('Massiv');
for i:=1 to n do
begin
mas[i]:=random(20)-2;
write(mas[i]:5:0);
end;
writeln;
writeln('New Massiv');
for i:=1 to n do
begin
if mas[i]>ch then
write(mas[i]:5:0);
end;
end.

Можно конечно покороче написать но я не стал те тах хоть понятнее будет.

@L_Egor · 21.10.2013, 09:24 **[ТС]**

но почему массив заполняется только положительными числами?

Добавлено через 2 минуты
спасибо сам разобрался

@Sead · 21.10.2013, 09:26

в строке mas[i]:=random(20)-2;
поставь место -2 например -10 а если хочешь что числа были больше место 20 например 100 естественно -2 уже ставишь -50

@L_Egor · 21.10.2013, 09:32 **[ТС]**

спасибо дружище, выручил крепко

@L_Egor 5 / 5 / 1 Регистрация: 15.10.2013 Сообщений: 206
	21.10.2013, 09:24 [ТС]	3
	но почему массив заполняется только положительными числами? Добавлено через 2 минуты спасибо сам разобрался 0

@Sead 66 / 69 / 33 Регистрация: 07.10.2013 Сообщений: 396
	21.10.2013, 09:26	4
	в строке mas[i]:=random(20)-2; поставь место -2 например -10 а если хочешь что числа были больше место 20 например 100 естественно -2 уже ставишь -50 1

@L_Egor 5 / 5 / 1 Регистрация: 15.10.2013 Сообщений: 206
	21.10.2013, 09:32 [ТС]	5
	спасибо дружище, выручил крепко 0

Опции темы