Program n1; const n=5; var a: array [1..n] of integer; i,S: integer; begin writeln('дано ',n,' чисел;'); for i:=1 to n do begin write('введите ',i,' число: '); readln(a[i]); end; for i:=1 to n do S:=S+a[i]; writeln('среднее арифм: ',S/n); end.
Однажды Ослик не знал чем заняться. Все его друзья уехали кто куда: кто к бабушке в деревню, кто на море теплое, а кто вообще в лес, ягоды собирать. И стало ослику скучно. Но вот он увидел книгу с ноутбуком, и думает. Думает, что бы выбрать. Если выберет книгу, то быстро ее прочитает и это ему не так тем более она скучная. Вот ноутбук другое дело - там и поиграть можно, и с друзьями пообщаться, и спросить что-нибудь в интернете, да узнать что-нибудь новое. Вот ослик и выбрал ноутбук. И стал играть в нем в игры. Так несколько лет. Ослик все играл, да играл, а его друзья уже давно себе нашли работу, завели семью и все у них хорошо. А ослик так и потратил половину своей жизни, а в дальнейшем и всю жизнь, на игру. Так что не играйте в игры, а учитесь, развивайтесь и читайте книги! Не будьте осликами.
const n=5;
var a: array [1..n] of integer;
i,S: integer;
begin
writeln('дано ',n,' чисел;');
for i:=1 to n do
begin
write('введите ',i,' число: ');
readln(a[i]);
end;
for i:=1 to n do S:=S+a[i];
writeln('среднее арифм: ',S/n);
end.