дорогие нужна п о м о щ ь!

[dashaha]

кто может напишите програмку на паскале)) спасибо)


Сессия. Результаты сессии, состоящей из трех экзаменов, для группы
из n студентов представлены матрицей K(n,3). Оценка ставится по четырехбалльной
системе; неявка обозначается единицей. Подсчитать количество неявок, неудовлетворительных,
удовлетворительных, хороших и отличных оценок по каждому экзамену.

[Poma][a]

Оценка ставится по четырехбалльной системе; неявка обозначается единицей

количество неявок, неудовлетворительных, удовлетворительных, хороших и отличных оценок

Ни чего странного не видете?

Ладно вот решил если всё-таки 4-бальная система

const
        SIZE = 1000;
type
        Arr = array [1..SIZE,1..3] of Integer;

procedure Marks (const a : Arr; n : Integer; p : Integer);

var
        i, wtmk, nor, gd, ext : Integer;

begin
        wtmk := 0; // WithOutMark
        nor := 0; // Normal
        gd := 0; // Good
        ext := 0; //Exctellent

        for i := 1 to n do
                case a[i, p] of
                        1 : Inc (wtmk);
                        2 : Inc (nor);
                        3 : Inc (gd);
                        4 : Inc (ext);
                end;

        WriteLn ('Экзамен № ', p);
        WriteLn ('1 - ', wtmk);
        WriteLn ('2 - ', nor);
        WriteLn ('3 - ', gd);
        WriteLn ('4 - ', ext);
end;

var
        a : Arr;
        n, i : Integer;

begin
        ReadLn (n);

        for i := 1 to n do
                ReadLn (a[i, 1], a[i, 2], a[i, 3]);

        Marks (a, n, 1);
        Marks (a, n, 2);
        Marks (a, n, 3);
end.

[dashaha]

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

[Вадим Мошев]

Ни чего странного не видете?

А что странного? Здесь просто неявка не считается за оценку и всё.
Хотя неявка равносильна неудовлетворительной оценке (во всяком случае, так было у нас в институте).

[Poma][a]

Здесь просто неявка не считается за оценку и всё.

Вот это и ожидалось услышать от ТС.

Хотя неявка равносильна неудовлетворительной оценке

А здесь неявка = 1

[ACE Valery]

dashaha, я вот чего-то не пойму: вы читать умеете?
Кросспостинг запрещен.
Название тем не соответствует правилам.
Клоноводство запрещено.
Все ваши темы с подобными названиями будут удаляться. А ваши аккаунты, создающие подобные темы - баниться.

Всем рыцарям, которые хотят помочь - просьба не обижаться, ибо темы я буду удалять вместе с вашими ответами. Девушка обнаглела вкрай - 20 тем с неадекватными названиями и кросспостингом.