Var a:array[1..100] of integer;
n:integer;
begin
read(n);
for I:1 to n do
begin
a[i]:=0;
end;
end.
В смысле? Можно сделать красивую презентацию или мини-фильм ;)
Вопрос поставлен не корректно. Растровая графика используется во всех перечисленных случаях, кроме третьего (но и в векторных графических редакторах есть возможность сохранения в растр)
Первые следы иероглифического письма в Древнем Египте
Появление алфавитного письма в Финикии
Изобретение технологии изготовления бумаги в Китае
Начало книгопечатания в Европе
Начало книгопечатания в России