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

Паскаль АВС.

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

+3
Ответы (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 чисел. Определить в нём самое маленькое положительное число. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы