Регистрация
дильназ149
Есть ответ 👍

Составить массив из пяти фамилий, и вывести на экран те из них, которые начинаются с определённой буквы, которая вводиться

275
489
Посмотреть ответы 2

Ответы на вопрос:

glukhovivan2007
glukhovivan2007
4,4(73 оценок)
Длину строки можно указать в разделе описания переменных:
<имя переменной, …>:string[n]
program fff;
var v:array[1..5] of string;
k:string[1];
i:integer;
begin
writeln('введи букву, с которой будет начинаться фамилия');
readln(k);
writeln('введи пять фамилий');
for i:=1 to 5 do readln(v[i]);
writeln('интересующие Вас фамилии:');
for i:=1 to 5 do
if (v[i])[1]=k then writeln(v[i]);
readln;
end.
CmauJLuk
CmauJLuk
4,7(1 оценок)

Южная Америка (50% площади материка покрыто лесами)

Популярно: Другие предметы