Вычислить значения обработки массива var k, m, day: integer; dat: of integer; begin dat[1] : = 2; dat[2] - id838972720220929 от tasn 29.09.2022 15:26

Question

Информатика: Вычислить значения обработки массива var k, m, day: integer; dat: of integer; begin dat[1] : = 2; dat[2] : = 2; dat[3] : = 3; dat[4] : = 3; dat[5] : = 4; dat[6] : = 4; dat[7] : = 5; dat[8] : = 5; dat[9] : = 6; dat[10] : = 6; day: =1; m : = dat[1]; for k : = 2 to 10 do if dat[k] = m then begin m: = dat[k]; day : = k; end; write(day); end.

tasn · Accepted Answer

var

a: array [1..20] of 2..5; //Массив оценок учеников

i: integer;

n: array [2..5] of 2..5; //Массив счетчиков оценок

begin

for i:= 2 to 5 do //Обнуляем счетчики оценок

n[i]:= 0;

for i:= 1 to 20 do //Вводим оценки учеников и считаем их

begin

writeln('Введите оценку ', i, ' ученика');

readln(a[i]);

if a[i] = 2 then n[2]:= n[2] + 1;

if a[i] = 3 then n[3]:= n[3] + 1;

if a[i] = 4 then n[4]:= n[4] + 1;

if a[i] = 5 then n[5]:= n[5] + 1;

end;

for i:= 2 to 5 do

writeln('Количество получивших ', i, ' за диктант равно: ', n[i]); {Выводим значения счетчиков}

end.

MOGZ ответил