Даны цифры числа.
Собрать их в натуральное число
(Pascal,задача на ОДНОМЕРНЫЕ МАССИВЫ)

Решение №1 (без массивов)var a,n,i,j,s:integer;begin  writeln('Введите количество цифр в числе');  readln(n);  for i:=1 to n do begin    writeln('Введите ',i,' цифру из ',n);    readln(a);    for j:=1 to n-i do a:=a*10;    s:=s+a;  end;  writeln('Натуральное число: ',s);end.Тестовое решениеВведите количество цифр в числе5Введите 1 цифру из 59Введите 2 цифру из 52Введите 3 цифру из 57Введите 4 цифру из 53Введите 5 цифру из 51Натуральное число: 92731Решение №2 Если очень надо использовать массив (хотя на мой взгляд совсем не нужно)//PascalABC.NET (версия 3.1, сборка 1198)var a,n,i,j,s:integer;mas:array[1..10]of integer;begin  writeln('Введите количество цифр в числе');  readln(n);  for i:=1 to n do begin    writeln('Введите ',i,' цифру из ',n);    readln(mas[i]);    a:=mas[i];       for j:=1 to n-i do a:=a*10;    s:=s+a;  end;  writeln('Натуральное число: ',s);end.Тестовое решениеВведите количество цифр в числе5Введите 1 цифру из 55Введите 2 цифру из 54Введите 3 цифру из 53Введите 4 цифру из 52Введите 5 цифру из 52Натуральное число: 54322