Задача 9 класс. Массивы. Найти произведение элементов соседних с минимальным (5 элементов вводить с клавиатуры)

Question

Информатика

Владлен

28 декабря, 16:47

Задача 9 класс. Массивы. Найти произведение элементов соседних с минимальным (5 элементов вводить с клавиатуры)

+1

Ответы (1)

Знаете ответ?

Ефросим · Answer 1

Program enot;

Var a: array [1 ... 5] of integer;

i, min, c:integer;

begin

for i: = 1 to 5 do read (a[i]) ; min:=a[1];

for i: = 2 to 5 do

if a[i]
if i5 then begin

min: = a[i];

c:=a[i-1]*a[i+1];

end

else c:=0;

end;

write (c) ;

end.