Задачки на 3 темы!, Массивы, матрицы, программа!!! Опции

[D.Nuke]

1 задача:
С клавиатуры одной строкой вводится 20 чисел в диапозоне 1<=x<=20. Вывести его на экран принтера.
Вычислить сумму тех элементов массива "х", индексы которых совпадают со значением элемента массива. Подстчитать чх количество, сумму и среднее арифметическое. Вывести на принтер и на экран красным цветом.

2 задача:
Любые целые числа вводятся с клавиатурыю
1. Получите матрицу 4х4.
2. Подсчитайте количество всех отрицательных элементов матрицы, замените диагональные элементы на это число.
3. Транспортируйте матрицу.
4. Образуйте из отрицательных элементов одномерный массив, отсортируйте его по не возрастаниюметодом "пузырька". Элементы матрицы п.п. 1-3 выводить на экран с заданием формат, п.4 - в столбец.

3 задача:
Написать программу: подтвердить или опровергнуть утверждение.
Дана последовательность натуральных чисел 1,2,3,4,,,х,,
Утверждение: произведение 4-х последовательных чисел всегда делится на 12.
Результат решения и заключение выводить на экран.
Количество членов последовательности для доказательства задаётся генератором случайных чисел в диапазоне 8<=x<15.

[Bokul]

вот концовка решение:

Код

Var mas:main;
      min:neg;
begin
take_mas(mas); {Заполняем массив}
diagonal(number(mas),mas); {сначала считаем количество отрицальных елементов (функция number),
                     а потом заменяем диагональные элементы на это число }
transport(mas);{транспортируем матрицу}
mas_negativ(mas,min);{формируем одномерный массив отрицательных елементов массива  mas}
sort(min); {сортируем еге}
end;

Ище одно: надо изменить количество елементов массива neg на 16.
Сначала я предпологал использовать 17-ий елемент как суму всех
елементов етого массива.
Ето понадобилося б для форматиного вывода массива...

Сообщение отредактировано: Bokul - 7.05.2006 23:05