Задать вопрос
11 августа, 17:38

Паскаль АВС.

Дан массив из C чисел. Определить в нём самое маленькое положительное число.

+1
Ответы (1)
  1. 11 августа, 19:49
    0
    Const

    N = 10; / / Задаём размерность массива

    Var

    A: array[1 ... N] of integer; / / Объявляем массив

    i, B: integer;

    Begin

    Randomize;

    Write ('Исходный массив:') ;

    For i: = 1 to N do

    Begin

    A[i] : = random (2*N+1) - N; / / Заполняем массив случайными числами

    Write (' ', A[i]) ; / / и выводим его на экран

    End;

    WriteLn;

    B : = A[N]; / / В переменной B будет находится искомое число

    For i: = 1 to N-1 do

    if (A[i] > 0) and (A[i] < B) then

    B : = A[i];

    WriteLn ('Наименьшее положитиельное чилсо: ', B) ;

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Паскаль АВС. Дан массив из C чисел. Определить в нём самое маленькое положительное число. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1) Дан массив из n элементов. Найти номер наименьшего элемента массива. 2) Дан массив из n элементов. Упорядочить массив по возрастанию. 3) Дан массив из n элементов. Упорядочить массив по убыванию.
Ответы (1)
Хотя бы 3-4 задачи! 1) Дан одномерный целочисленный массив размерностью N. Найдите количество элементов, которые кратны 3 (5). 2) Дан одномерный целочисленный массив А, состоящий из N элементов. Найти сумму всех четных элементов массива.
Ответы (1)
Ввести слово и число раз (Ввод; паскаль, 3). Вывести это слово так: паскаль паскаль паскаль паскаль паскаль паскаль
Ответы (1)
Задачи на массив (паскаль) : Массив (подсчёт суммы) а) Дан массив целых чисел. Найти сумму нечётных элементов. б) Дан массив. Определить максимальный и минимальный элемент.
Ответы (1)
Помогите решить задачи на паскаль. 1) Дан массив случайных чисел (количество элементов вводите с клавиатуры). Найти произведение всех элементов массива. 2) Дан массив случайных чисел (количество элементов вводите с клавиатуры).
Ответы (1)