Информатика, опубликовано 2018-08-22 23:26:38 by Гость
Составить программу расчёта произведения элементов массива;найти в нём минимальный элемент и его номер
Ответ оставил Гость
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:=a[i];
indMin:=i;
end;
end;
writeln(P);
writeln(indMin, ,min);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на