Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Даны три массива слов S11, ... , S115 ; S21, ... , S210 ; S31, ... , S312.
Вывести три списка: из массива S1- слова, начинаю¬щиеся на букву В; из массива S2 - слова, начинающиеся на букву Ц; из массива S3 - слова, начинающиеся на букву А.

Ответ оставил Гость

Const
  n1=15;
  n2=10;
  n3=12;
type
  V=array[1..15] of string;
procedure M_in(s:string; var a:V; n:integer);
{ ввод данных в массив }
var i:integer;
begin
  Writeln(Вводите по одному ,n, элементов массива ,s);
  for i:=1 to n do Readln(a[i])
end; 

procedure M_out(var a:V; n:integer; c:char);
{ выводит элементы, начинающиеся с указанного символа }
var i:integer;
begin
  Writeln(*** Слова на букву ,c, ***);
  for i:=1 to n do
    if a[i][1]=c then Writeln(a[i]);
  Writeln
end; 

var
  s1,s2,s3:V;
begin
  M_in(S1,s1,n1);
  M_in(S2,s2,n2);
  M_in(S3,s3,n3);
  M_out(s1,n1,В);
  M_out(s2,n2,Ц);
  M_out(s3,n3,А);
end.