Массив составлен из строк. Найти элемент минимальной длины

@артем67 · Регистрация: 08.05.2014

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

Помогите

My Mas = array [1..10] of String. Найти элемент минимальной длины. Вывести на экран

Заранее Спасибо огромное.

@kastiniel · 08.05.2014, 12:37

Pascal

var i,n,poz,min:integer;
   stroki:array[1..10] of string;
Begin
  n:=10;
  writeln('vvedite slova');
  for i:=1 to n do
   readln(stroki[i]);
   min:=maxInt;poz:=0;
   for i:=1 to n do
    if min>length(stroki[i]) then
                                   begin
                                     min:=length(stroki[i]); poz:=i;
                                   end;
  writeln('rezult:');
   write(stroki[poz]);
 
End.

вроде так!

@артем67 · 12.05.2014, 12:01 **[ТС]**

Спасибо большое!)))

@артем67 0 / 0 / 0 Регистрация: 08.05.2014 Сообщений: 8
		1
	Массив составлен из строк. Найти элемент минимальной длины 08.05.2014, 06:26. Показов 1039. Ответов 2 Метки нет (Все метки) Помогите My Mas = array [1..10] of String. Найти элемент минимальной длины. Вывести на экран Заранее Спасибо огромное. 0

@артем67 0 / 0 / 0 Регистрация: 08.05.2014 Сообщений: 8
	12.05.2014, 12:01 [ТС]	3
	Спасибо большое!))) 0

Массив составлен из строк. Найти элемент минимальной длины

Решение