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

@Alina22 · Регистрация: 30.01.2012

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

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

@Coohper · 12.02.2012, 15:42

Pascal

Uses crt;
Var m:array[1..22] of byte;
    i,k:byte; a:real;
Begin
ClrScr;
For i:=1 to 22 do
begin
 m[i]:=random(5)+1;
 write(m[i]:3);
 a:=a+m[i];
end;
a:=a/22;
For i:=1 to 22 do
If m[i]<a then write(i:4);
end.

Kodzaev · 12.02.2012, 15:44

Pascal

uses crt;
var
x:array[1..22] of integer;
i,k,s:integer;
sr:real;
Begin clrscr;
randomize;
for i:=1 to 22 do
 begin
  x[i]:=random(4)+2;
  writeln('Оценка ',i,' ученика: ',x[i]);
  s:=s+x[i];
 end;
sr:=s/22;
writeln('Номера учеников оценки которых меньше средней ',sr:2:1);
for i:=1 to 22 do
if x[i]<sr then write(i,' ');
readln
end.

@Alina22 · 12.02.2012, 15:49 **[ТС]**

большое спасибо

@Alina22 1 / 1 / 0 Регистрация: 30.01.2012 Сообщений: 19
		1
	Массив: Определить количество учеников, оценка которых меньше средней оценки по классу 12.02.2012, 15:29. Показов 2777. Ответов 3 Метки нет (Все метки) 1.В массиве записаны оценки по информатике 22 учеников класса. Определить количество учеников, оценка которых меньше средней оценки по классу, и вывести номера элементов массива, соответствующих таким ученикам. 0

@Alina22 1 / 1 / 0 Регистрация: 30.01.2012 Сообщений: 19
	12.02.2012, 15:49 [ТС]	4
	большое спасибо 0

Опции темы