Записи

@Виктория_хи · Регистрация: 23.11.2009

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

15. Ввести с клавиатуры фамилии студентов и результат сдачи экзамена по какому-либо предмету. Фамилии записать в одну строку и вычислить средний бал. Результаты вывести на экран.

@Puporev · 24.11.2009, 14:31

Pascal

uses crt;
type
stud=record
     fam:string[15];
     ocn:byte;
     end;
var z:array[1..50] of stud;
    n,i:byte;
    sr:real;
begin
clrscr;
write('Количество студентов n=');
readln(n);
writeln('Введите фамилии и оценки:');
sr:=0;
for i:=1 to n do
 begin
  writeln('Студент ',i);
  write(' Фамилия: ');readln(z[i].fam);
  write(' Оцeнка: ');readln(z[i].ocn);
  sr:=sr+z[i].ocn;
 end;
sr:=sr/n;
 
clrscr;
writeln('Список группы:');
for i:=1 to n do
 begin
  gotoXY(1,whereY);
  write(z[i].fam);
  gotoXY(17,whereY);
  write(z[i].ocn);
  writeln;
 end;
write('Средний балл:');
gotoXY(16,whereY);
write(sr:0:2);
readln
end.

@Виктория_хи · 16.01.2010, 23:04 **[ТС]**

Спасибо огромнейшее))

@Виктория_хи 0 / 0 / 0 Регистрация: 23.11.2009 Сообщений: 5
		1
	Записи 23.11.2009, 18:28. Показов 1047. Ответов 2 Метки нет (Все метки) 15. Ввести с клавиатуры фамилии студентов и результат сдачи экзамена по какому-либо предмету. Фамилии записать в одну строку и вычислить средний бал. Результаты вывести на экран. 0

@Виктория_хи 0 / 0 / 0 Регистрация: 23.11.2009 Сообщений: 5
	16.01.2010, 23:04 [ТС]	3
	Спасибо огромнейшее)) 0

Записи

Решение