Определить количество учеников, оценка которых меньше средней оценки по классу

@ira051995 · Регистрация: 16.11.2010

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

В массиве записаны оценки по информатике 25 учеников класса . Определить количество учеников,оценка которых меньше средней оценки по классу,и вывести номера елементов массива,соответствующих таким ученикам.

Напишите пожалуйста полностью,с заполнением массива.

Комментарий модератора

Не дублируйте задания в разных темах.

@mus · 17.11.2010, 22:42

Задача №1

Pascal

uses crt;
var a:array[1..25] of integer;
srbal,i,n,k:integer;
s:real;
begin
clrscr;
writeln('vvedite kol-vo ushenikov');
readln(k);
writeln('vvedite otsenki');
for i:=1 to k do
 readln(a[i]);
 
for i:=1 to k do
  s:=s+a[i];
 
s:=s/k;
writeln('srednii ball ', s:2:2);
 
for i:=1 to k do
 if a[i]<s then
  begin
   n:=n+1;
   writeln(i);
  end;
writeln('kol-vo ushenikov s octenkoi < srednego po klassu ',n);
readkey;
end.

@ira051995 · 18.11.2010, 16:38 **[ТС]**

Спасибо

@ira051995 3 / 3 / 0 Регистрация: 16.11.2010 Сообщений: 140
	18.11.2010, 16:38 [ТС]	3
	Спасибо 0

Опции темы

Определить количество учеников, оценка которых меньше средней оценки по классу

Решение