Модификация одномерных массивов - Pascal ABC

[Totoldamag]

Составить блок – схему и разработать алгоритм решения следующих задач:

Ввести одномерный массив A из N элементов. Каждый элемент в массиве чьѐ значение лежит в диапазоне [–1;10] умножить на 5. Массив вывести до и после преобразования.

Нашел код программы на С++. Может кто преобразовать на Pascal ABC

#include <math.h>
#include <iostream.h>
int main ()
{
    float A[100],N,x;
    int i;
        cout<<"CHISLO YACHEEK MASSIVA=";
        cin>>N;
    for (i=0;i<N;i++)
    {
        cout<<"A["<<i<<"]=";
        cin>>A[i];
    }
    for (int i=0;i<N;i++)
    {
        cout<<"old A["<<i<<"]="<<A[i]<<endl;
    }
        for (i=0;i<N;i++)
        if ((A[i]>=(-1))&&(A[i]<=10))
    {
        x=A[i];
        A[i]=5*x;
        cout<<"new A["<<i<<"]="<<A[i]<<endl;
    }else
    cout<<"new A["<<i<<"] Ne prinadlezhit diapozonu"<<endl;
  system ("pause");
    for (int i=0;i<N;i++)
    {
        cout<<"A["<<i<<"]="<<A[i]<<endl;
    }
 
}

[Sciv]

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

Может кто преобразовать на Pascal ABC

Ребята из раздела "Фриланс" и не такое могут, если им денег дать

[p51x]

Зачем преобразовывать, если задача пишется на коленке за 10 минут?

[Romeshek]

var a:array [1..10] of integer;
i:integer;
begin
randomize;
write('исходный массив:');
writeln;
for i:=1 to 10 do begin 
a[i]:=random(11)-1; 
write(a[i],' ');
end;
begin
randomize;
writeln;
writeln('Полученный массив:');
for i:=1 to 10 do begin 
a[i]:=random(11)-1; 
write(a[i]*5,' ');
end;
end;
end.

Я бы это так сделал

[Serge_Bliznykov]

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

Я бы это так сделал

это неправильно.

подумайте, зачем Вы ДВАЖДЫ заполняете один и тот же массив и где проверка на то, что "чьѐ значение лежит в диапазоне [–1;10]"

кроме того, в исходном примере значения массива вводятся с клавиатуры.
уж не знаю, насколько это принципиально