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