Дан целочисленный массив A(N)

[manyhin]

Дан целочисленный массив А(N), заданный датчиком случайных чисел в интервале (-100,99).
Требуется умножить значения элементов этого массива на 20, если А(I)>0, или на 17, если A(I)<=0.



Решить задачу и еще с помощью подпрограммы.
___________________________________ _________________________

вроде как саму задачу решил

var
    vector: Array[Byte] Of Integer;
    i, size: Byte;
begin
    Randomize;
    repeat
        Write('n='); ReadLn(size);
    until (size > 0);
    WriteLn;
    for i := 0 to size - 1 do
    begin
        vector[i] := Random(200) - 100;
        Write(vector[i]:5);
        if (vector[i] > 0)
        then
            vector[i] := vector[i] * 20
        else
            vector[i] := vector[i] * 17;
    end;
    WriteLn;
    for i := 0 to size - 1 do
        Write(vector[i]:6);
end.

[Stilet]

вроде как саму задачу решил

Похвально. Теперь запускай )

[min@y™]

Почему решение на паскале написано?
Годно написано.

[manyhin]

Да, а можете пожалуйста разбить код на следующие процедуры:
Ввод данных
Обработка
Вывод данных

[min@y™]

Да, а можете пожалуйста разбить код

ну конечно можем!

[Stilet]

var
    vector: Array[Byte] Of Integer;
    i, size: Byte;
 procedure ichi;
 begin
    repeat
        Write('n='); ReadLn(size);
    until (size > 0);
 end;

 procedure ni;
 begin
    for i := 0 to size - 1 do
    begin
        vector[i] := Random(200) - 100;
        Write(vector[i]:5);
        if (vector[i] > 0)
        then
            vector[i] := vector[i] * 20
        else
            vector[i] := vector[i] * 17;
    end;
 end;

 procedure san;
 begin
    for i := 0 to size - 1 do
        Write(vector[i]:6);
 end;

begin
    Randomize; ichi;    WriteLn; ni;   WriteLn; san;
end.