Создать массив указателей на строки. Распечатать строки,начинающиеся на заданную букву

@bzpolezn · Регистрация: 21.10.2017

Помогите пожалуйста!!

Задание такое:
Дан текст.Создать массив указателей на строки.Распечатать строки,начинающиеся на заданную букву.

@ZX Spectrum-128 · 14.12.2017, 18:20

Pascal

const
  n = 10;
 
type
  parr = array[1..n] of ^string[128];
 
var
  a: parr;
  i: integer;
  ch: char;
 
begin
  write('Введите символ: '); 
  readln(ch);
  writeln('Введите элементы массива: '); 
  for i := 1 to n do 
  begin
    new(a[i]);
    readln(a[i]^); 
  end; 
  writeln('Элементы массива, удовлетворяющие условию: '); 
  for i := 1 to n do 
    if a[i]^[1] = ch then 
      Writeln(a[i]^); 
  for i := 1 to n do 
    dispose(a[i]);
end.

@bzpolezn 0 / 0 / 0 Регистрация: 21.10.2017 Сообщений: 1
		1
	Создать массив указателей на строки. Распечатать строки,начинающиеся на заданную букву 13.12.2017, 19:23. Показов 2489. Ответов 1 Метки нет (Все метки) Помогите пожалуйста!! Задание такое: Дан текст.Создать массив указателей на строки.Распечатать строки,начинающиеся на заданную букву. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Создать массив указателей на строки. Распечатать строки,начинающиеся на заданную букву

Решение