Программирование на Pascal

Question

Программирование на Pascal

Ева Курчова Ученик (96), на голосовании 5 месяцев назад

С клавиатуры вводят 12 слов,
Напишите условие выбора таких слов, которые начинаются с
буквы 'M"
в pascal

Answer 1

 program SelectMWords; 
var 
  i: integer; 
  words: array[1..12] of string; 
  mWords: string; 
 
begin 
  for i := 1 to 12do 
readln(words[i]); 
 
  for i := 1 to 12 do 
    if words[i][1] = 'M' then 
      mWords := mWords + words[i] + ' '; 
 
  writeln(mWords); 
end.