Const n = 20; var rez:array[2..5] of integer; i,a:integer; begin for i:=1 to n do begin write(i,' ученик получил '); readln(a); inc(rez[a]); end; writeln; for i:=2 to 5 do writeln('Оценку ',i,' получили ',rez[i]); end.
Тестовое решение: 1 ученик получил 3 2 ученик получил 4 3 ученик получил 3 4 ученик получил 5 5 ученик получил 2 6 ученик получил 2 7 ученик получил 3 8 ученик получил 4 9 ученик получил 5 10 ученик получил 4 11 ученик получил 2 12 ученик получил 3 13 ученик получил 3 14 ученик получил 4 15 ученик получил 5 16 ученик получил 5 17 ученик получил 3 18 ученик получил 5 19 ученик получил 4 20 ученик получил 4
Оценку 2 получили 3 Оценку 3 получили 6 Оценку 4 получили 6 Оценку 5 получили 5
Var m1,m2,m3:array of integer; i,n:integer; begin write('Введите размер массивов'); readln(n); setlength(m1,n); setlength(m2,n); setlength(m3,n); //Заполнение массивов for i:=0 to n-1 do begin m1[i]:=random(21)-10; m2[i]:=random(21)-10; m3[i]:= m1[i]+m2[i]; end; //Вывод массивов for i:=0 to n-1 do write(m1[i]:4); writeln; for i:=0 to n-1 do write(m2[i]:4); writeln; for i:=0 to n-1 do write(m3[i]:4); writeln; end.
