Var a:array[1..100, 1..100] of integer; sum,k,i,n1,n2,j:integer; begin sum:=0; k:=0; writeln('Введите количество строк'); readln(n1); writeln('Введите количество столбцов'); readln(n2); writeln('Введите элементы массива'); for i:=1 to n1 do for j:=1 to n2 do begin read(a[i,j]); sum:=sum+a[i,j]; k:=k+1; end; writeln('Среднее арифметическое всех элементов массива = ',sum/k); end.
В глубокой древности - на стенах пещер, на глиняных табличках, восковых дощечках, на скрижалях, потом на папирусе, бересте, пергаменте и т. д. Потом изобрели бумагу. В старину писали стилом, палочками, гусиными перьями, углями. Были ещё какие-то средства. В девятнадцатом веке изобрели пишущие машинки, фотоаппараты - ведь запечатление изображений на фотоплёнках и фотопластинках, это тоже запись информации. Также в 19 столетии появились граммофоны, патефоны, механические пианино, шарманки (музыка - тоже информация) . А уже ближе к нашим временам появились магнтитофоны, видеомагнтитофоны, потом лазерные устройства для записи на диски. Наконец, мобильники, фотоаппараты, компьютеры - это тоже накопители информации, которая хранится на дисках, флэшках, картах памяти и т. д. В общем, сам поищи в интернете, напиши разные варианты для поиска, например, "древние записи информации", "старинные носители информации", "папирус, глина, берестяные грамоты, письмена", "Александрийская библиотека" и т. д.
sum,k,i,n1,n2,j:integer;
begin
sum:=0;
k:=0;
writeln('Введите количество строк');
readln(n1);
writeln('Введите количество столбцов');
readln(n2);
writeln('Введите элементы массива');
for i:=1 to n1 do
for j:=1 to n2 do begin read(a[i,j]);
sum:=sum+a[i,j];
k:=k+1;
end;
writeln('Среднее арифметическое всех элементов массива = ',sum/k);
end.