Написать программу, которая определяет количество учеников в классе, чей рост превышает средний.

@sonyk18 · Регистрация: 09.04.2012

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

@Pacan1 · 14.04.2012, 17:26

Pascal

uses crt;
const n=5;
var
a:array[1..n] of integer;
i,k,sum:integer;
sr:real;
begin
for i:=1 to n do     begin
writeln('Введите рост ',i,' Ученика');
readln(a[i]);
end;
for i:=1 to n do
write(a[i],' ');
sum:=0;
for i:=1 to n do
sum:=sum+a[i];
sr:=sum/n;
k:=0;
writeln;
for i:=1 to n do
if sr<a[i] then inc(k);
Writeln('Средний рост=',sr:5:2,'  Кол-во учеников =',k);
readln
end.

@sonyk18 · 15.04.2012, 20:28 **[ТС]**

Спасибо огромное, выручил!!!

@sonyk18 0 / 0 / 0 Регистрация: 09.04.2012 Сообщений: 35
		1
	Написать программу, которая определяет количество учеников в классе, чей рост превышает средний. 14.04.2012, 16:51. Показов 5444. Ответов 2 Метки нет (Все метки) Написать программу, которая определяет количество учеников в классе, чей рост превышает средний. 0

@sonyk18 0 / 0 / 0 Регистрация: 09.04.2012 Сообщений: 35
	15.04.2012, 20:28 [ТС]	3
	Спасибо огромное, выручил!!! 0

Написать программу, которая определяет количество учеников в классе, чей рост превышает средний.

Решение