8. Что общего у пиктограммы и символа? В чём между ними различие? Предложсите свою систему пистограмм для основныхрекомендаций по работе и компьютером, направленных насохранение здоровья пользопателя.​

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.

Тестовое решение:
Введите размер массивов 10
   7 -10   9  -4   8  -6  10   4   6   2
  10  -3  -2  -7   1   9   2   3   5  -6
  17 -13   7 -11   9   3  12   7  11  -4

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