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

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

+3
Ответы (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. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Заменить значение каждого элемента каждой строки массива А на значение соответствующего элемента соответствующего столбца массива В (1-й элемент 1-й строки массива А на 1-й элемент 1-го столбца массива В, 2-й элемент 1-й строки массива А на 2-й
Ответы (1)
Что определяет для массива X[1 ... n] следующий алгоритм P: = 0; For k: = 1 to n do If X[k]
Ответы (1)
Паскаль! Дан массив А размерностью N. Записать в каждый элемент массива В следующие значения: 1 ый элемент - сумма всех нечетных элементов массива А; 2 ои элемент - сумма всех четных элементов массива А: Зий элемент - сумма всех элементов массива А
Ответы (1)
Дан одновременный массив, состоящий из 10 эллементов. Пользователь вводит элементы массива. Ввести массив на экран в строку. Найти минимальный элемент массива.
Ответы (1)
В записи m[7]=9 m обозначает 1) имя массива 2) имя элемента массива 3) номер элемента массива 4) значение элемента массива в записи m[7]=
Ответы (1)