Даны сведения учащихся класса (10 человек ),включающие оценки в течение одного месяца по математике. Подсчитайте количество пятёрок, четвёрок, двоек, троек(СЧЁТЕСЛИ),найдите средний балл каждого ученика и средний балл всей группы (СРЗНАЧ).Создать диаграмму ,иллюстрирующую процентное соотношение оценок в группе.

2000*2000=4000000 пикселей=4 мегапикселей

пример программы для паскаль

program a;

const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] < = 160)) or        ((161 < = a[i]) and (a[i] < =175)) or          ((225 < = a[i]) and (a[i] < = 242)) thenwriteln('index =  ',i+1,'; bukva -  ''',char(a[i]),'''','    a[i] =  ',a[i]); end;

beginwriteln; for i: =1 to n do              b[i] : = random(300); for i: =1 to n do begin                  write(' ',i,'  =  ',b[i]); if (i mod 5 = 0) then writeln; end; writeln; writeln; proc(b);           readln;

end.

1)никакие люди не повторят подвиг матросова!

2)все великие,учёные люди подвергались критике и злобе,но это делало их сильнее.

3)не все люди могут победить в себе страх и сдержать боль перед смертью как это сделал извейстнейший казак разин

var i: integer;

s: string;

begin

  s: ="abcdefghijklmnopqrstuvwxyz";

  for i: = 1 to length(s) do

      writeln(s[i],' = ', ord(s[i]));

end.