Меню сайта

Задача №2

Ввести информацию по 10 избирателям, определить количество людей, проживающих на улице Красная.


Program zap_2-

Uses Crt-

Const n=10-

Type data = record

name,street : string-

end-

Var a : array[1..n] of data-

count,i :byte-

BEGIN

ClrScr-

count:=0-

for i:=1 to n do

begin

Writeln(‘Избиратель ‘,i)-

Writeln(‘Имя…’)-

Readln(a[i].name)-

Writeln(‘Улица…’)-

Readln(a[i].street)-

if a[i].street = ‘Красная’

then begin

writeln(a[i].name,’ живет на улице Красная.’)-

inc(count)

end-

end-

writeln(count,’ количество человек, живущих на улице Красная.’)-

Readln-

End.

Категория: Записи | Дата: 22.01.13

Меню раздела
Блок