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.
3) program zada4a3; var a: array[1..50] of integer; i,k: integer; begin for i: = 1 to 50 do a[i]: = random(51)+150; k: =0; for i: = 1 to 50 do if a[i]> 170 then k: =k+1; writeln(k); end.Поделитесь своими знаниями, ответьте на вопрос:
какому цвету в цветовой модели rgb соответствуют значения интенсивностей цветовых компонент (255, 0, 0)? белому чёрному синему красному зелёному
ответ: красному