Задать вопрос
24 августа, 07:10

Программа для паскаль. Найти минимальный элемент массива делящийся на 3.

+2
Ответы (1)
  1. 24 августа, 10:44
    0
    Вроде правильно

    const n =; (поставь любое положительное число, это количество элементов в массиве)

    var A:array [1 ... n] of real; i: integer; min: real;

    begin

    for i:=1 to n do

    begin

    readln (a[i]) ;

    writeln ('a[i', i, ']=', a[i]) ;

    end;

    min:=a[i];

    for i:=1 to n do

    if a[i] mod 3=0 then if a[i]
    if (a[1]=min) and (a[1] mod 30) then writeln ('Нет чисел, делящихся на 3') else writeln (min) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Программа для паскаль. Найти минимальный элемент массива делящийся на 3. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы