Вычислить по массиву оценок средний балл и количество пятерок

@Hamond · Регистрация: 29.04.2010

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

Вот еще такая проге(
Экзаменационные оценки группы студентов группы вводятся с клавиатуры:
A=(5,3,2,4,..,5); n=28;
где n число студентов в группе. Вычислить средний балл и количество пятерок.

@*~<`PIK`>~* · 30.04.2010, 00:30

Вот код:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
const n=28;
      chisla=['1'..'5'];
var i,p:integer;
    sr:real;
    s:string;
    m:array[1..n] of integer;
begin
p:=0;
sr:=0;
s:='';
s:=Edit1.Text;
 
For i:=1 to Length(s) do
If s[i] in chisla then
begin
Inc(p);
If p<=n then
m[p]:=StrToInt(s[i]);
end;
 
For i:=1 to n do
sr:=sr+m[i];
 
sr:=sr/n;
 
p:=0;
 
For i:=1 to n do
If m[i]=5 then
Inc(p);
 
ShowMessage('Оценки: '+s+#13+'Средняя оценка = '+FloatToStr(sr)+#13+'Количество 5 = '+IntToStr(p));
end;

@Hamond · 30.04.2010, 00:37 **[ТС]**

благадарствуюю, за сотруднечиство !

@Hamond 0 / 0 / 0 Регистрация: 29.04.2010 Сообщений: 16
		1
	Вычислить по массиву оценок средний балл и количество пятерок 30.04.2010, 00:03. Показов 2201. Ответов 2 Метки нет (Все метки) Вот еще такая проге( Экзаменационные оценки группы студентов группы вводятся с клавиатуры: A=(5,3,2,4,..,5); n=28; где n число студентов в группе. Вычислить средний балл и количество пятерок. 0

@Hamond 0 / 0 / 0 Регистрация: 29.04.2010 Сообщений: 16
	30.04.2010, 00:37 [ТС]	3
	благадарствуюю, за сотруднечиство ! 0

Вычислить по массиву оценок средний балл и количество пятерок

Решение