program z1;
var a:array [1..6] of integer;
i,s:integer;
begin
s:=0;
randomize;
write ('Массив: ');
for i:= 1 to 6 do
begin
a[i]:=random(18);
write(a[i],' ');
s:=s+a[i]
end;
writeln;
writeln ('Сумма элементов массива: ',s);
writeln ('Среднее арифметическое элементов массива: ',s/6:0:1)
end.
Объяснение:
Цикл:
1) присваиваем значение текущему элементу массива
2) выводим текущий элемент массива на экран
3) считаем сумму элементов массива
Выводим сумму элементов массива на экран
Выводим среднее арифметическое элементов массива на экран (делим сумму на количество элементов), используя форматированный вывод (указываем после второго двоеточия количество знаков после запятой при выводе числа)
Поделитесь своими знаниями, ответьте на вопрос:
Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения скорости до целых чисел. Необходимо определить: 1) разность максимальной и минимальной скоростей автомобилей; 2) количество автомобилей, скорость которых не превышала 30 км/ч. Программа получает на вход число проехавших автомобилей N (1 ≤ N ≤ 30), затем указываются их скорости. Значение скорости не может быть меньше 1 и больше 300. Программа должна сначала вывести разность максимальной и минимальной скоростей автомобилей, затем количество автомобилей, скорость которых не превышала 30 км/ч. В Питоне
Program Cars;
var
i, n, v, max_v, min_v: integer;
Begin
//Ввод числа авто
readln(n);
//Поиск максимальной и минимальной скорости
max_v := 0;
min_v := 300; //Берём противоположные скорости, чтобы найти максимум и минимум
for i := 1 to n do
begin
read(v);
if (v > max_v) then
max_v := v;
if (v < min_v) then
min_v := v;
end;
//Вывод ответов
writeln(max_v);
if (min_v < 30) then
write('YES')
else
write('NO');
End.
Подробнее - на -
Объяснение: