Question

В массиве хранятся сведения об оценках 25 учеников по химии. Определить количество неуспевающих по химии учеников. Помогите,пожалуйста,паскаль-одномерный массив

Answer 1

Const n=25; 
var a:array[1..n] of integer;
i,k:integer; 
begin
Randomize;
writeln('Оценки:');
for i:=1 to n do
 begin
 a[i]:=random(4)+2;
 write(a[i]:3);
 end;
writeln;
k:=0;
for i:=1 to n do
 if a[i]=2 then k:=k+1;
writeln('k = ',k);
end.

Пример:
Оценки:
3 4 4 2 5 2 5 4 5 3 3 5 2 5 5 3 3 3 3 5 5 3 5 4 5
k = 3

Answer 2

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

Для этого можно использовать следующий алгоритм:

1. Создайте одномерный массив, содержащий оценки 25 учеников по химии. Например, можно использовать следующий код на Pascal:

var
  marks: array[1..25] of Integer; // массив с оценками

2. Заполните массив оценками учеников. Например, можно использовать цикл для ввода оценок:

for i := 1 to 25 do
begin
  writeln('Введите оценку ученика ', i, ': ');
  readln(marks[i]);
end;

3. Инициализируйте переменную count неуспевающих учеников нулем:

var
  count: Integer; // переменная для хранения количества неуспевающих учеников
begin
  count := 0;

4. Проанализируйте массив оценок и увеличивайте переменную count, если оценка является неудовлетворительной (например, меньше 3):

for i := 1 to 25 do
begin
  if marks[i] < 3 then
    count := count + 1;
end;

5. Выведите результат:

writeln('Количество неуспевающих учеников: ', count);

Таким образом, после выполнения данного кода в переменной count будет содержаться количество неуспевающих учеников по химии.