Создайте массив случайным образом,содержащий оценки десяти учеников за выполнение трёх контрольных работ (по три оценки для каждого).Выведите на экран средний балл каждого ученика. Подсчитайте число учеников: *выполнивших пер...
Создайте массив случайным образом,содержащий оценки десяти учеников за выполнение трёх контрольных работ (по три оценки для каждого).Выведите на экран средний балл каждого ученика.
Подсчитайте число учеников:
*выполнивших первую работу на "5"
*выполнивших хотя бы одну работу на "5"
*выполнивших все работы на "5"
*выполнивших вторую работу на "4" или "5"
*не получивших ни одной оценки "5"
*выполнивших первую работу на "3",вторую-на "4" и третью-на "5"
Гость
Ответ(ы) на вопрос:
ГостьИзвиняюсь за громоздкость мб можно и короче, сможешь расписать присваивание к каждой переменной а ,б и с рандомное значение, как я указал не через запятую? Если нет, то я через часок другой вброшу короткое решение, а пока это.
program n_1;
type
m= array [1..5] of integer;
var
a,a1,a2,a3,a4,a5,a6,a7,a8,a9: integer;
b,b1,b2,b3,b4,b5,b6,b7,b8,b9: m;
c,c1,c2,c3,c4,c5,c6,c7,c8,c9: m;
d,d,d2,d3,d4,d5,d6,d7,d8,d8: m;
begin
randomize;
b,b1,b2,b3,b4,b5,b6,b7,b8,b9:= random;
c,c1,c2,c3,c4,c5,c6,c7,c8,c9:= random;
d,d,,d2,d3,d4,d5,d6,d7,d8,d8:= random;
a:= (b+c+d) div 3;
a1:= (b1+c1+d1) div 3;
a2:= (b2+c2+d2) div 3;
a3:= (b3+c3+d3) div 3;
a4:= (b4+c4+d4) div 3;
a4:= (b5+c5+d5) div 3;
a6:= (b6+c6+d6) div 3;
a7:= (b7+7c+d7) div 3;
a8:= (b8+c8+d8) div 3;
a9:= (b9+c9+d9) div 3;
writeln ('Ученик-', a);
writeln ('Ученик 1-', a1);
writeln ('Ученик 2-', a2);
writeln ('Ученик 3-', a3);
writeln ('Ученик 4-', a4);
writeln ('Ученик 5-', a5);
writeln ('Ученик 6-', a6);
writeln ('Ученик 7-', a7);
writeln ('Ученик 8-', a8);
writeln ('Ученик 9-', a9)
end.
Не нашли ответ?
Похожие вопросы