Вывести 5 первых положительных элементов массива (T10) - Free Pascal (448)

Узнай цену своей работы

Формулировка задачи:

Вывести 5 первых положительных элементов массива (T10)

Решение задачи: «Вывести 5 первых положительных элементов массива (T10)»

textual
Листинг программы
  k:=0;
  for i:=1 to n do
    if a[i]>0 then
      begin
        inc(k);
        write(a[i]:5);
        if k>=5 then
          break;
      end;

Объяснение кода листинга программы

  1. Установка счетчика k в 0.
  2. Цикл от 1 до n, где n - это количество элементов в массиве a.
  3. Проверка, является ли элемент a[i] положительным числом.
  4. Если условие выполняется, то:
    • Увеличение значения k на 1.
    • Вывод значения элемента a[i] в шестом формате.
    • Проверка, если значение k больше или равно 5, то выход из цикла.
  5. Если значение k меньше 5, то цикл продолжается.

Оцени полезность:

7   голосов , оценка 4 из 5
Похожие ответы