1.Егер қатты дискіде 1000 суретті jpq кеңейтілуімен сақтасақ, онда ол дискіде қанша орын алады? 2.Компьютерлік графиканы не үшін сығылған түрде қолданады?​

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(20,2,5);Write('Оценки за диктант: ');a.Println;
Writeln('Двоек: ', a.Where(t-> t = 2).Count);
Writeln('Троек: ', a.Where(t-> t = 3).Count);
Writeln('Четверок: ', a.Where(t-> t = 4).Count);
Writeln('Пятерок: ', a.Where(t-> t = 5).Count);
Writeln('Средний за диктант: ', a.Average:0:2);
end.

Пример:
Оценки за диктант: 4 3 2 3 5 3 3 2 5 2 3 5 4 3 3 4 2 2 3 2
Двоек: 6
Троек: 8
Четверок: 3
Пятерок: 3
Средний за диктант: 3.15

У меня очень много любимых хобби. Но больше всего я люблю рисовать.
Когда я рисую, я не только получаю радость от нарисованного, но ещё и тренируюсь и каждая моя последующая картинка выходит всё лучше и лучше!
Некоторые мои друзья считают, что я лучшая художница из класса, но мне кажется, что каждый рисует хорошо для себя. 
Мне нравится рисовать в реалистичном и минималистичном стиле.
Каждый раз у меня новые идеи. Правда, все их выполнить сложно. Но я стараюсь максимально и надеюсь, что когда-нибудь нарисую очень красивую картину и мне будет чем гордиться.