Связь с администрацией сайта:       

demo

Среди толпы я одинок

Определить среднее число студентов в одной группе.

          В двумерном массиве хранится информация о количестве студентов в той или иной группе каждого курса института с первого по пятый (в первом столбце -информация о группах первого курса, во второй - второго и т.д.) На каждом курсе имеется 8 групп. Определить среднее число студентов в одной группе на третьем курсе на языке Pascal(Паскаль).

 

 

const
k=5;//курсы
g=8;//группы
var
m:array[1..g,1..k]of integer;
i,j,w:integer;
begin
randomize;
//-— Заполним_Все_Группы_Студентами_с_1_по_5_Курс —-
// —- Ну_и_Посчитаем_Всех_Студентов_Третьего_Курса —-
writeln('группа/курс');
for i:=1 to k do write(i:5);
writeln;
writeln;
w:=0;
for i:=1 to g do begin
write(i);
for j:=1 to k do begin
m[i,j]:=10+random(10);
if j=3 then w:=w+m[i,j];
write(m[i,j]:5);
end;
writeln;
end;
//----
writeln;
writeln('среднее число студентов в одной группе на третьем курсе = ',w/g:0:0);
end.

 

 

Rate this item
(1 Vote)
Login to post comments