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

@Викуля Молчанов · Регистрация: 19.02.2013

Студворк — интернет-сервис помощи студентам

В массиве из 10 целых чисел найти наименьший элемент и его порядковый номер , и если можно блок схему .Заранее спасибо

@newyork7776 · 22.05.2013, 01:01

Pascal

program prg;
 uses crt;
 var mas:array[1..10] of integer;
     i,x,min:integer;
 begin
 
 Write('Zapolnite masiv = ');
 for i:=1 to 10 do                  //zapolnenie masiva
   read(mas[i]);
 write('Nash masiv = ');
 for i:=1 to 10 do
   write(mas[i],' ');               //vuvod masiva
 min:=mas[1];
 for i:=1 to 10 do
 begin
  if (min>mas[i])then
                 begin
                 min:=mas[i];      //poshuk min
                 x:=i;
                 end;
 end;
 writeln;
 writeln('MIN = ',min);         //vivod min
 writeln('mesto = ',x);         //mesto min
 
end.

@Викуля Молчанов 2 / 2 / 0 Регистрация: 19.02.2013 Сообщений: 20
		1
	Найти наименьший элемент массива и его порядковый номер 20.05.2013, 21:23. Показов 1838. Ответов 1 Метки нет (Все метки) В массиве из 10 целых чисел найти наименьший элемент и его порядковый номер , и если можно блок схему .Заранее спасибо 0

Опции темы

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

Решение