Вывести фамилии, имена и отчества и средние баллы студентов, не получающих стипендии

@Darkin · Регистрация: 24.01.2011

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

1) Вывести фамилии,имена и отчества и средние баллы студентов, не получающих степендию

@Просто лис · 02.04.2011, 01:59

Первая задача.

Pascal

var i,l:byte; n:integer;  s:ARRAY[1..100] OF BYTE;
a:array[1..30] of string; b:array[1..30] of string; c:array[1..30] of string;
begin
l:=0;
Writeln ('vvedite kol-vo stydentov'); readln(n);
for i:=1 to n do
begin
writeln('imay');
readln(a[i]);
Writeln('familiay');
readln(b[i]);
Writeln('ochestvo');
readln(c[i]);
Writeln('ocenka');
readln(s[i]);
end;
for i:=1 to n do
begin
if s[i]=2
then begin
writeln(a[i],' ',b[i],' ',c[i],' sridnii ball ',s[i]);
end;
end;
readln;
end.

@Darkin 0 / 0 / 0 Регистрация: 24.01.2011 Сообщений: 83
		1
	Вывести фамилии, имена и отчества и средние баллы студентов, не получающих стипендии 01.04.2011, 15:49. Показов 3076. Ответов 1 Метки нет (Все метки) 1) Вывести фамилии,имена и отчества и средние баллы студентов, не получающих степендию 0

	02.04.2011, 01:59

Вывести фамилии, имена и отчества и средние баллы студентов, не получающих стипендии

Решение