Определить, сколько букв в самой короткой фамилии списка

Категория: Delphi/Pascal
2011-09-04 16:03:39
code: #pascal
  1. program z6;
  2.  type t=array[1..8] of string[20];
  3.  var
  4.  s:t;
  5.  c,i, min: integer;
  6.  begin
  7.   for i:=1 to 8 do
  8.   begin
  9.    writeln('Введите слово');
  10.    readln(s[i]);
  11.    c:=length(s[i]);
  12.    if min=0 then min:=c else if c<min then min:=c;
  13.   end;
  14.  writeln(min);
  15.  readln;
  16.  end.
Поделиться:

Похожие статьи:

теги: одномерный массив, массив, студенты, консольное приложение, работа со строками, строки, список