Ошибка при работе с массивом

@БелкО · Регистрация: 03.09.2009

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var a:array [1..n] of integer; 
i,L,M:integer;
 
begin
 randomize; 
for i:=1 to n do 
begin
a[i]:=random(100); 
write(a[i],' ');
end;
writeln;
writeln('Delitel');
readln(M);
writeln('ostatok');
readln(L);
for i:=1 to n do
begin
if (a[i] mod M)=L then 
write(a[i],' ');
end;
readln;
end.

Суть в том, что при запуске пишет что тип integer не подходит для описания массива, а если ставить real, пишет тоже самое. Помогите решить эту проблемку

какой тип всё таки писать ?

@Jazon_deenAlt · 12.10.2009, 13:31

Сообщение от БелкО

var a:array [1..n] of integer;

n - неприемлемо, напишыте число)

@БелкО · 12.10.2009, 13:37 **[ТС]**

По задаче массив чисел от 1 до n, но придется ставить число =)

@Jazon_deenAlt · 12.10.2009, 13:41

как вариант можно так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var a:array [1..100] of integer; 
n,i,L,M:integer;
 
begin
writeln('vvedite kolichestvo cufr v massive(ne bolshe 100)');
readln(n);
 randomize; 
for i:=1 to n do 
begin
a[i]:=random(100); 
write(a[i],' ');
end;
writeln;
writeln('Delitel');
readln(M);
writeln('ostatok');
readln(L);
for i:=1 to n do
begin
if (a[i] mod M)=L then 
write(a[i],' ');
end;
readln;
end.

@maladoy · 12.10.2009, 13:41

напишите число а в теле проги запрашивайте n и все циклы делайте до него!

@schdub · 12.10.2009, 13:42

объявите н в разделе глобальных констант

Pascal
1
const N = 100; {например}

@БелкО · 12.10.2009, 13:48 **[ТС]**

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

объявите н в разделе глобальных констант

Pascal
1
const N = 100; {например}

Пасиба так и сделаю =)

@schdub · 12.10.2009, 14:01

Сообщение от БелкО

Пасиба так и сделаю =)

но тока смотри, в твоей задаче необходимо предусмотреть, чтобы N имел возможность вводить пользователь. Такой трюк, которы предложил вам, скорее всего подойдет, когда числа в массиве нужно огланичить, каким-либо максимальным значением, а решения, предложенные Jazon_deenAlt и maladoy, более правильные, чем мое, в данном контексте.

Новые блоги и статьи Все статьи Все блоги /
сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .

@БелкО 6 / 6 / 1 Регистрация: 03.09.2009 Сообщений: 69
	12.10.2009, 13:37 [ТС]
	По задаче массив чисел от 1 до n, но придется ставить число =) 0

@maladoy 113 / 85 / 56 Регистрация: 09.01.2009 Сообщений: 209
	12.10.2009, 13:41
	напишите число а в теле проги запрашивайте n и все циклы делайте до него! 1