Типовые задачи на Паскале! Массивы, прошу помогите. 1. Дано: N - Целое семизначное число, вводится пользователем. Проверка на се
Типовые задачи на Паскале! Массивы, прошу помогите.
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)program gt; var a:array[1..100,1..100]of integer; b:array[1..100]of integer; n,m,s,i,j:integer; begin readln(n,m); for i:=1 to n do for j:=1 to m do read(a[i,j]); for j:=1 to m do begin s:=0; for i:=1 to n do s:=s+a[i,j]; b[j]:=s; end; for i:=1 to m do write(b[i],' '); end. 2) program gt; var a:array[1..100,1..100]of integer; n,m,s,i,j:integer; begin readln(n,m); randomize; for i:=1 to n do begin for j:=1 to m do begin if(i mod 2=0)then a[i,j]:=0 else a[i,j]:=random(100); write(a[i,j],' '); writeln; end; end.