программа с процедурами

[Прокурор]

Задача 1...я просто вообще не понимаю как решать с процедурами...

[paves]

procedure Ones(a: array of Real; n: integer; var t: Byte);
begin
end;

[Вадим Мошев]

В Паскале немного по-другому (выше приведённый вариант не будет работать)

type
mas = array [1..50] of real; {например так}

procedure Ones(a: mas; n: integer; var t: Byte);
begin
end;

[Poma][a]

Я бы сделал так :

procedure Ones(const a : mas; const n: integer; var t: Byte);

[MihalNik]

В Паскале немного по-другому (выше приведённый вариант не будет работать)

Ну, в Делфи точно работает. Правда, параметр n тогда уже можно опустить.

[Прокурор]

Сообщение от Вадим Мошев

В Паскале немного по-другому (выше приведённый вариант не будет работать)

type
mas = array [1..50] of real; {например так}

procedure Ones(a: mas; n: integer; var t: Byte);
begin
end;

я так понимаю в тело процедуры мне нужно уже писать саму программу?

[BDA]

Сообщение от Прокурор

я так понимаю в тело процедуры мне нужно уже писать саму программу?

Да, несомненно.

[Прокурор]

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

Да, несомненно.

мне массив вне процедуры описывать или можно прямо в ней?

[BDA]

Массив описан в type.
Объявите переменную типа mas в глобальном var.
Затем, в основной программе заполните массив и вызовите Ones с нужными параметрами.

type
  mas = array [1..50] of real;

var
  c: mas;
  t1: byte;
  m: integer;

procedure Ones(const a: mas; const n: integer; var t: Byte);
begin
  ...
end;

begin
  ...
  Ones(c, m, t1);
  writeln(t1);
end.

Имена специально другие, чтобы Вы понимали, что они никак не связаны.

[Poma][a]

BDA
А почему именно глобальные? Почему бы не обойтись локальными?