program z;
uses crt;
const n=5;
var a: array [1..n] of integer;
i: integer;
s: real;
begin
clrscr;
for i: =1 to n do
readln (a[i]);
clrscr;
for i: =1 to n do
begin
write (a[i],',');
s: =s+a[i];
end;
writeln;
s: =s/n;
writeln (s);
readln
end.
Поделитесь своими знаниями, ответьте на вопрос:
Как выделялось на папирусах начало новой мысли
основной текст в египте писали чёрной краской ,чтобы выделить начало строки или фразы писали красным .(но выделяли редко -писчий материал был дорогим).