Question

Типовые на паскале! массивы дано: 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. найти: максимальный элемент из его элементов с нечетными номерами. буду невероятно !

Answer 1

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.