Работа в паскале в группе n студентов вводя по три оценки каждого студента подсчитать число студентов имеющих оценок 2

175

322

Посмотреть ответы 2

Ответы на вопрос:

evrolokki

Информатика

4,5(96 оценок)

A: array[1..n,1..m] of integer; i,j,k: integer; begin randomize; writeln('оценки: '); for i: =1 to n do begin for j: =1 to m do begin a[i,j]: =random(4)+2; write(a[i,j]: 4); end; writeln; end; k: =0; for i: =1 to n do if (a[i,1]=2)or(a[i,2]=2)or(a[i,3]=2) then k: =k+1; writeln('количество двоечников = ',k); end. пример: оценки: 4 5 4 2 5 5 4 4 5 5 2 4 2 2 4 количество двоечников = 3

нази17

Информатика

4,4(82 оценок)

Пусть ученик неуспевающий, если сумма его отметок меньше 2+2+3+3=10. var count_losers, sum, current_sum, mark, i, j, n: integer; begin read(n); count_losers : = 0; for i : = 1 to n do begin current_sum : = 0; for j : = 1 to 4 do begin read(mark); current_sum : = current_sum + mark; end; if current_sum < 10 then inc(count_losers); sum : = sum + current_sum; end; writeln('неуспевающих учеников: ', count_losers); writeln('средняя сумма четырёх отметок: ', sum / n); writeln('средняя отметка: ', sum / 4 / n); end. пример ввода: 4 2 2 2 5 2 2 5 2 2 5 2 2 3 2 2 2 пример вывода: неуспевающих учеников: 1 средняя сумма четырёх отметок: 10.5 средняя отметка: 2.625