По предоставленному коду и своему опыту могу предположить что суммирует все четные элементы матрицы
Чтобы уменьшить размер файла, можно его заархивировать
<em>Решение:</em>
Три варианта для обеда, три варианта для десерта.
Возможных вариаций - 9(1-1,1-2,1-3,2-1,2-2,2-3,3-1,3-2,3-3).
<u>Ответ:</u> 9
P.S. - График предоставить могу, но мне, если честно, лень его чертить, сканировать и выкладывать для такой простенькой задачи. Поэтому предоставляю тебе альтернативный вариант:
1)Чертишь три прямоугольника
2)Отводишь от каждого из них по три стреолчки
3)На концах стрелочек чертишь еще три треугольника. В нижней строке должно получиться 9 прямоугольников.
4)Записываешь в каждый, по очереди, каждую из приведенных мной выше вариаций.
const n=9;
var marks:array[1..n,1..2] of 2..5;
i,k:integer;
begin
writeln('Оценки студентов:');
for i:=1 to n do
begin
marks[i,1]:=random(4)+2;
marks[i,2]:=random(4)+2;
writeln(i,': ',marks[i,1]:3,marks[i,2]:3);
end;
k:=0;
for i:=1 to n do
if (marks[i,1]+marks[i,2])/2<3 then k:=k+1;
writeln('Количество студентов, имеющих средний балл < 3 = ',k);
end.
Пример:
Оценки студентов:
1: 5 4
2: 5 4
3: 4 3
4: 5 5
5: 2 2
6: 2 3
7: 5 5
8: 3 4
9: 2 2
Количество студентов, имеющих средний балл < 3 = 3