Решить задачу на языке Pascal

Контрольные, Задачи и ТестыЗакрыт3 заявки517 просмотров
Найдите исполнителя для вашего проекта прямо сейчас!
Разместите заказ на фриланс-бирже и предложения поступят уже через несколько минут.

Дан массив M - [ { м [i, j] }, i=1,10; j=1,10 ]

(элементы выбираются случайным образом):

  • Вывести номера не нулевых элементов.
  • Посчитать количество нулевых элементов.
  • Записать в этот же массив сначала все отрицательные числа и нули, затем все положительные, сохраняя порядок их следования.
  • Найти сумму отрицательных элементов главной диагонали.
  • Найти min- элемент 1-го столбца.
  • Найти первую цифру в целом положительном числе.
  • С клавиатуры вводится текст. Слова разделяются пробелом. Ввод текста прекращается после нажатия на клавиатуре точки. Посчитать количество цифр в этом тексте.
Если невозможно выполнить тот или иной пункт, то необходимо выдать соответствующее сообщение.

Задания под номерами 1 и 4 выполнить в виде подпрограммы.

3 года назад
guest_16096698924385
3 года в сервисе
Был
3 года назад