Нахождение минимального элемента массива и его позиции (Блок-схема)

@borlogg · Регистрация: 15.02.2014

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

Pascal

Program Tri_be;
uses crt;
type
   massiv = array [1..100] of integer;
var
  i , n , min,ind : integer;
  mass : massiv;
begin
clrscr;
write('Введите массив(не больше 100 элементов): '); 
readln(n);
if n<=100 then
begin
for i:=1 to n do
   begin
   write('Введите массив : '); 
   readln(mass[i]);
   end; 
min := mass[i];
for i:=2 to n do
   begin
      if min > mass[i] then
      begin
      min := mass[i];
      ind :=i;
      end;
   end;
writeln;   
writeln('Минимальный элемент массива : ', min);
writeln('Находится на ', ind, ' месте');
writeln();
end
else 
writeln('Ошибка!');
end.

@Samhain · 04.03.2014, 10:52

borlogg,

@Samhain 696 / 570 / 414 Регистрация: 31.03.2013 Сообщений: 1,029
	04.03.2014, 10:52	2
	borlogg, Миниатюры 0