Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Tim777
0 / 0 / 1
Регистрация: 26.04.2015
Сообщений: 10
1

Определить количество пятерок, четверок, троек и двоек по каждой дисциплине

11.05.2015, 12:33. Просмотров 710. Ответов 1
Метки нет (Все метки)

Имеется экзаменационная ведомость студенческой группы из 20 человек по 5 дисциплинам.
Определить количество пятерок, четверок, троек и двоек по каждой дисциплине.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.05.2015, 12:33
Ответы с готовыми решениями:

В массиве записаны оценки 22 учеников. Определить количество пятерок, четверок, троек и двоек
В массиве записаны оценки по иностранному языку каждого из 22 учеников...

Определить общее количество четверок и пятерок
В массиве записаны оценки ученика по 10 предметам. Определить общее количество...

В массиве записаны оценки. Определить общее количество четверок и пятерок
В массиве записаны оценки ученика по 10 предметам. Определить общее количество...

Определить общее количество пятерок и количество двоек
известны оценки по химии каждого ученика класса. определить общее количество...

Определить фамилии лиц, не имеющих двоек и троек
в ведомости не более N строк со сведениями об оценках студентов по M предметам...

1
Puporev
Модератор
54677 / 42099 / 29068
Регистрация: 18.05.2008
Сообщений: 99,341
11.05.2015, 15:27 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
uses crt;
const m=5;
      n=20;
var a:array[1..m,1..n]of byte;
     i,j,k2,k3,k4,k5:byte;
begin
clrscr;
for i:=1 to m do
 begin
  write('Дисциплина_',i);
  for j:=1 to n do
   begin
    a[i,j]:=2+random(4);
    write(a[i,j]:3);
   end;
  writeln;
 end;
for i:=1 to m do
 begin
  k2:=0;
  k3:=0;
  k4:=0;
  k5:=0;
  for j:=1 to n do
  case a[i,j] of
  5:inc(k5);
  4:inc(k4);
  3:inc(k3);
  2:inc(k2);
  end;
  writeln('Дисциплина_',i,' пятерок=',k5,' четверок=',k4,' троек=',k3,' двоек=',k2);
 end;
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.05.2015, 15:27

Дана матрица, содержащая оценки группы. Найти количество единиц, двоек и троек у каждого студента
Дана матрица А, имеющая 30 строк и 10 столбцов, содержащая оценки группы за...

Массив: посчитать в нем количество троек d[i][j], d[i][j+1], d[i][j+2], в каждой из которых элементы равны
дан массив D(M,K) целых чисел. посчитать в нем количество троек d, d, d, в...

Нужно организовать заполнение массива случайными значениями от 2 до 5 и определить количество студентов, сдавших сессию без двоек
Помогите в написании кода Pascal. Массив хранит оценки сессии 5-ти студентов по...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru