Написать программу, которая вводит с клавиатуры последовательность из 5-ти вещественных чисел и после ввода каждого числа выводит среднее арифметическое полученной части последовательности на паскале (через for to do)
+ ноутов: мобильность, возможность работы от аккумулятора. - ноутов: быстрый нагрев всех компонентов, быстрый разряд аккумулятора, слабая вычислительная по сравнению с ПК Не возможность работы с ресурсоемкими приложениями, т.к есть ограничение на озу (обычно ставят не более 2-4 гб и медленную).Слабый процессор, по сравнению с процессором пк. +пк: высокая вычислительная высокая скорость обработки данных, высокая надежность хранения данных долговременной работы без перегрева компонентов. -пк: невозможность работы от аккумулятора, трудно перевозимый, громоздкий, шумный (если охлаждение по средствам кулеров).
Программа без массива: const n=10; var a,i,max,min:integer; begin Randomize; min:=69; max:=15; for i:=1 to n do begin a:=random(55)+15; write(a,' '); if a>max then max:=a; if a<min then min:=a; end; writeln; writeln('max-min = ',max,'-',min,' = ',max-min); end.
Программа с массивом: const n=10; var a:array[1..n] of integer; i,max,min:integer; begin Randomize; for i:=1 to n do begin a[i]:=random(55)+15; write(a[i],' '); end; writeln; min:=a[1]; max:=a[1]; for i:=2 to n do begin if a[i]>max then max:=a[i]; if a[i]<min then min:=a[i]; end; writeln('max-min = ',max,'-',min,' = ',max-min); end.
begin
s:=0;
for i:=1 to 5 do
begin
readln(a);
s:=s+a;
writeln(s/i:5:2);
end;
end.
Пример:
2.8
2.80
9.4
6.10
0.7
4.30
6.0
4.72
4.1
4.60