Ошибка при объявлении размера массива: "неизвестное имя 'n'" - PascalABC.NET


textual

Код к задаче: «Ошибка при объявлении размера массива: "неизвестное имя 'n'" - PascalABC.NET»

type m=array of integer;
 
procedure InAr(var a:m; n:integer);
var i:integer;
begin
for i:=0 to n-1 do
a[i]:=random(100);
end;
 
procedure Pro(var a:m; n:integer);
var i:integer;
begin
for i:=0 to n-1 do
if a[i]<2 then a[i]:=0;
end;
 
procedure Sum(var a:m; n:integer);
var s:integer;
begin
for var i:=3 to 7 do
s:=s+a[i];
writeln('Сумма на отрезке [3..7] = ',s);
end;
 
var a:m;
n:integer;
begin
write('Введите кол-во ячеек массива: ');
read(n);
setlength(a,n);
InAr(a,n);
Pro(a,n);
Sum(a,n);
end.

СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.000 из 5



Похожие ответы
  1. Народ, помогите с задачей в голову ничего не приходит.. { Даны натуральное число n, действительные числа r,A1,..,An, где 2<=n<=50. Найти точки (A1,An), (A2,An-1),...,(An,A1) Которые принадлежат кругу радиуса r с центром в начале координат, и определить их количество. Кроме того, сформировать последовательность B1,...,Bn из отсортированных в порядке возрастания элементов исходной последовательности. }

  1. Выдает ошибку в 29 строке: "неверное число параметров процедуры". Помогите пожалуйста с этой процедурой. Открывал через PascalABC.NET

  1. Помогите пожалуйста с задачей. Знаю только как сделать крутящийся кружочек Круг движется по окружности. При попадании круга в I четверть он заполняется клеткой, во II четверть - ///, в III - \\\, в IV - точками. При нажатии клавиши стрелка вверх увеличивается его радиус, стрелка вниз - соответственно уменьшается. Выход по Esc.

  1. После записи строк из richtextbox в файл, последующем чтении их и попытки преобразования в real, выдает ошибку входного формата. Тестировал строки до записи в файл, все преобразовывал. Может использовать другую кодировку? (использована UTF-8)

  1. делаю простенький плеер с кнопками (одна кнопка - одна песня)