Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Типовые задачи на Паскале! Массивы, прошу помогите.
1. Дано:
N - Целое семизначное число, вводится пользователем.
Проверка на семизначность обязательна!
Выполнить:
Записать в массив A[i] цифры этого числа.
2. Дано:
A[i] – массив целых чисел, состоящий из 5 элементов.
Элементы массива вводятся пользователем из диапазона [-10,10].
Проверка ввода обязательна!
Выполнить:
Вывести на экран сумму неположительных и произведение неотрицательных элементов.
3. Дано:
A[i] – массив целых чисел, состоящий из 5 элементов.
Элементы массива вводятся пользователем.
Выполнить:
Вывести на экран среднее арифметическое элементов.
4. Дано:
A[i] - массив вещественных чисел, состоящий из элементов, выбранных случайным образом из диапазона [0;5] (в вещественном числе 3 знака после запятой).
Выполнить:
B[i] - Отсортировать массив A[i] по возрастанию.
C[i] - Отсортировать массив A[i] по убыванию.
5. Дано 10 целых чисел.
Выполнить:
Вычислить разницу между максимальным и минимальным из них.
6. Дано:
A - массив вещественных чисел, заданных случайным образом из диапазона от 2 до 12, с точностью до 2 знаков после запятой. Размер массива: N=17.
Найти:
Максимальный элемент из его элементов с нечетными номерами.
Буду невероятно благодарен!!!

Ответ оставил Гость

1)
USES CRT;
VAR A:array[1..100] of Longint;   
s:integer;   
x,i:Longint;
BEGIN
CLRSCR;

      Repeat         
         Writeln(Введите 7-ми значное число);         
         Readln(x);         
         i:=x;         
         s:=0; 
        
         while i>0 do           
            begin             
               i:=i div 10;               
               s:=s+1;           
            end;       
  
        if s > 7 then Writeln(Вы ввели число больше);         
        if s < 7 then Writeln(Вы ввели число меньше);

         Writeln;
      until s=7;

      for i:=1 to 7 do       
         begin           
            A[i]:=x mod 10;           
            x:=x div 10;         
         end;

      for i:=1 to 7 do         
         Write(A[i], );

READLN;
END.