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) считаем сумму элементов массива
Выводим сумму элементов массива на экран
Выводим среднее арифметическое элементов массива на экран (делим сумму на количество элементов), используя форматированный вывод (указываем после второго двоеточия количество знаков после запятой при выводе числа)
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.
Подробнее - на -
Объяснение: