//Pascal
var
A: array [1 .. 5] of integer;
k, buf, i, j: integer;
ArithMean: real;
begin
for i := 1 to 5 do
begin
write('A[', i, '] = '); readln(A[i]);
ArithMean := ArithMean + A[i];
end;
for i := 1 to 5 - 1 do
begin
k := i;
for j := i + 1 to 5 do
if A[j] < A[k] then k := j;
buf := A[i];
A[i] := A[k];
A[k] := buf;
end;
for i := 1 to 5 do write(A[i]:4);
writeln;
writeln('Среднее арифметическое = ', (ArithMean / 5):0:2);
end.
Информатика тоже не маловажный урок.Если внимательно слушать учителя,то можно не только стать в будущем программистом но и знать в компьютере что делать?как делать?
На уроках дети работают на компьютерах двоечники-хулиганы пользоются этим и вечь урокпросижывают за компьютерас и играми.Но кто то мог стать руководителем по информатике.Ну что же учитесь,ведь вся жизнь впереди!
Попробуй правой стороной мыши на объект, потом свойства и всё
Программа представлена на изображении.