1. В операционной системе Windows создайте на рабочем столе папку Archives.
Создайте в этой папке еще две папки Pictures и Documents.
2. Найдите и скопируйте в папку Pictures по два рисунка с расширением *.jpg и *.bmp.
3. Сравните размеры файлов *.bmp и *.jpg. и запишите данные в таблицу_1.
4. В папку Documents поместите файлы *.doc (не менее 3) и запишите их исходные
размеры в таблицу_1.
// Внимание! Если программа не работает, обновите версию!
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