Найти минимальный элемент массива и его порядковый номер

@Никита_14 · Регистрация: 05.12.2012

1)Одномерный массив A(M) задается случайным образом в [-45;28]. Вывести массив на экран. Найти минимальный элемент массива и его порядковый номер. Вывести результат на экран.

@kristina1995 · 06.12.2012, 23:17

Pascal

program zadacha;
uses crt;
var a:array [1..10] of integer;
    i,min,ind: integer;
 
Begin
randomize;
For i:=1 to 10 do
Begin
a[i]:=Random(73)-45 ;
write(a[i], ' ');
End;
writeln();
writeln();
min:=a[1];
For i:=1 to 10 do
Begin
 If (min>a[i]) then
 Begin
 min:=a[i];
 ind:=i;
 End;
End;
write('Минимальный элемент массива: ',min, ' ,находится на ', ind, ' месте');
 
End.

@Никита_14 0 / 0 / 0 Регистрация: 05.12.2012 Сообщений: 4
		1
	Найти минимальный элемент массива и его порядковый номер 05.12.2012, 14:07. Показов 9284. Ответов 1 Метки нет (Все метки) 1)Одномерный массив A(M) задается случайным образом в [-45;28]. Вывести массив на экран. Найти минимальный элемент массива и его порядковый номер. Вывести результат на экран. 0

Опции темы

Найти минимальный элемент массива и его порядковый номер

Решение