Записи. Вывести фамилии студентов, которые играют волейбол, рост которых превышает 180 см

@Muvikk · Регистрация: 20.09.2011

Author24 — интернет-сервис помощи студентам

Помогите плиз решить вот такую вот задачу:
Есть ведомость про студентов группы.Вывести фамилии тех студентов,которые играют волейбол,и рост которых превышает 180 см.

@Akcent2 · 26.12.2011, 20:09

Pascal

program asd;
uses crt;
var
fam:ARRAY [1..10] of string;
sport:array[1..10] of string;
rost:array[1..10] of integer;
i,n,kol:integer;
            begin
            clrscr;
write('количество студентов: ');
readln(kol);
for i:=1 to kol do begin
writeln('данные о ',i,' студенте: ');
write('фамилия: ');
readln(fam[i]);
write('рост:');
readln(rost[i]);
write('вид спорта: ');
readln(sport[i]); end;
writeln;
for i:=1 to kol do
if (rost[i]>180) and (sport[i]='волейбол') then writeln(fam[i]);
end.

@Muvikk 0 / 0 / 0 Регистрация: 20.09.2011 Сообщений: 16
		1
	Записи. Вывести фамилии студентов, которые играют волейбол, рост которых превышает 180 см 26.12.2011, 19:45. Показов 1927. Ответов 1 Метки нет (Все метки) Помогите плиз решить вот такую вот задачу: Есть ведомость про студентов группы.Вывести фамилии тех студентов,которые играют волейбол,и рост которых превышает 180 см. 0

	26.12.2011, 20:09

Записи. Вывести фамилии студентов, которые играют волейбол, рост которых превышает 180 см

Решение