Информатика (массивы) срочно пожалуйста!!! 1. В массиве фамилия и пол Вывести фамилии...

0 голосов
37 просмотров

Информатика (массивы) срочно пожалуйста!!! 1. В массиве фамилия и пол Вывести фамилии девочек начинающихся на "А" и мальчиков оканчивающихся на "в"


Информатика (14 баллов) | 37 просмотров
Дан 1 ответ
0 голосов

program raf105;

var fam,pol:array[1..100] of string;

n,i:integer;

begin

write('Введите количество детей: ');

readln(n);

writeln('Вводите фамилии и пол (Заглавной буквой М/Ж)');

for i:=1 to n do

begin

 writeln;

 write('[',i,'] ','Фамилия: ');

 readln(fam[i]);

 write('    Пол: ');

 readln(pol[i]);

end;

writeln;

writeln('Фамилии девочек начинающиеся на "А" и мальчиков заканчивающиеся на "в"');

for i:=1 to n do

 if (fam[i][1]='А') and (pol[i]='Ж') or (fam[i][length(fam[i])]='в') and (pol[i]='М')

   then writeln(fam[i]);

end.

Язык программирования PascalABC

(2.1k баллов)