Информатика, опубликовано 2018-08-22 19:11:42 by Гость

Помогите пожалуйста. Вот задача: Дан одномерный массив, состоящий из 10 элементов. Определить минимальный элемент этого массива.

Ответ оставил Гость

var i,min:integer;
a:array [1..10] of integer;
Begin
   for i:= 1 to 10 do Begin
       read(a[i]);
       if (i=1) or (min>a[i])then
           min:=a[i];
   end;
   writeln(min);
End.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.