Задать вопрос
3 декабря, 17:19

Составить программу расчёта произведения элементов массива; найти в нём минимальный элемент и его номер

+1
Ответы (1)
  1. 3 декабря, 18:49
    0
    Program n1;

    const n=7

    var a: array [1 ... n] of integer;

    i, P, min, indMin: integer;

    begin

    P:=1;

    for i:=1 to n do readln (a[i]) ;

    for i:=1 to n do P:=P*a[i];

    min:=a[1];

    for i: = 2 to n do begin

    if a[i] < min then begin

    min:=a[i];

    indMin:=i;

    end;

    end;

    writeln (P) ;

    writeln (indMin,' ', min) ;

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