112. Написать программу, которая вычисляет среднее арифметическое последовательности дробных чисел, вводимых с клавиатуры.
Program m14;
var
mas:array [1..10] of real;
i,n:integer;
k,y,min,max:real;
begin
writeln('Обработка последовательности дробных чисел.');
writeln('Введите количество чисел последовательности');
readln(n);
writeln('После ввода каждого числа нажимайте Enter');
for i:=1 to n do begin
readln(mas[i]);
y:=y+mas[i];
end;
min:=mas[i];
max:=mas[i];
for i:=1 to n do begin
if mas[i]<min then
min:=mas[i];
if max<mas[i] then
max:=mas[i];
end;
k:=y/i;
writeln('Количество чисел',' ',n:2);
writeln('Сред.арифметическое:',' ',k:2:2,'.');
writeln('Минимальное число',' ',min:2:1);
writeln('Максимальное число',' ',max:2:1);
readln;
end.
113. Написать программу, которая генерирует 10 случайных чисел в диапазоне от 1 до 10, выводит эти числа на экран и вычисляет их среднее
а
рифметическое.
Program m15;
const
n=10;
var
mas:array [1..10] of real;
i:integer;
k,y,min,max:real;
begin
randomize;
writeln('***Случайные числа***');
for i:=1 to n do begin
mas[i]:=random(10);
y:=y+mas[i];
Выход
Вход
for i:=1 to n do
readln(mas[i]);
writeln('Обработка последовательности дробных чисел.');
writeln('Введите количество чисел последовательности'); readln(n);
writeln('После ввода каждого числа нажимайте Enter');writeln('Вводите последовательности. После ввода каждого числа нажимайте Enter');
y:=y+ mas[i];
min:=mas[i]; max:=mas[i];
for i:=1 to n do
if mas[i]<min
min:=mas[i]
if max<mas[i]
for i:=1 to n do
max:=mas[i];
k:=y/i;
writeln('Количество чисел',' ',n:2);
writeln('Сред.арифметическое:',k:2:2,'.');
writeln('Минимальное число',' ',min:2:1);
writeln('Максимальное число',' ',max:2:1);
Выход
end;
for i:=1 to n do
write(mas[i]:1:0);
write;
k:=y/n;
writeln('Среднее арифметическое',' ',k:2:1);
readln;
end.
114. Написать программу, которая генерирует три последовательности из десяти случайных чисел в диапазоне от 1 до 10 .
Program m16;
const
n=10;
var
mas:array [1..10] of real;
i:integer;
k,y,min,max:real;
begin
randomize;
writeln('***Случайные числа***');
for i:=1 to n do begin
mas[i]:=random(10);
y:=y+mas[i];
end;
for i:=1 to n do begin
write(mas[i]:2:0);
end;
k:=y/n;
writeln(' ','Среднее арифметическое',' ',k:2:1);
for i:=1 to n do begin
mas[i]:=random(10);
y:=y+mas[i];
end;
for i:=1 to n do begin
write(mas[i]:2:0);
end;
k:=y/n;
writeln(' ','Среднее арифметическое',' ',k:2:1);
for i:=1 to n do begin
mas[i]:=random(10);
y:=y+mas[i];
end;
for i:=1 to n do begin
write(mas[i]:2:0);
end;
k:=y/n;
writeln(' ','Среднее арифметическое',' ',k:2:1);
readln;
end.
Выход
Вход
writeln('***Случайные числа***');
Выход