Найти минимальный элемент массива Д[12] от - 30 до 30. Вывести весь массив. Найти сумму всех элементов и номер минимального

Question

Информатика

Пиама

5 февраля, 09:20

Найти минимальный элемент массива Д[12] от - 30 до 30. Вывести весь массив. Найти сумму всех элементов и номер минимального

+5

Ответы (1)

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

Фессалоника · Answer 1

Var

a:array [1 ... 12] of integer;

i, k, s:integer;

begin

randomize;

writeln ('Массив:') ;

for i:=1 to 12 do

begin

a[i]:=random (41) - 10;

write (a[i],' ') ;

end;

writeln;

k:=1;

for i:=1 to 12 do

begin

s:=s+a[i];

if a[i]
end;

writeln ('Сумма всех элементов: ', s) ;

writeln ('Номер минимального элемента: ', k) ;

end.