ответ:
отдел +;
использует приём из "", вывод из "";
пер
n, сумма, сч, скор, макс: цел;
указ
сумма : = 0;
макс : = 0;
вывод.цепь("введите число автомобилей: ");
n : = приём.число();
если n < 1 и n > 30 то вывод.цепь("^ошибка.") иначе
вывод.цепь("^введите скорости: ^");
от сч : = 1 до n вып
скор : = приём.число();
если n < 1 и n > 300 то вывод.цепь("^ошибка."); стоп(0) кон;
увеличить(сумма, скор);
если скор > макс то макс : = скор кон;
вывод.цепь(" ")
кон
кон;
вывод.чвещ("^средняя скорость: %.1f.^", сумма / n, 0, 0, 0);
если макс > = 60 то вывод.цепь("yes") иначе вывод.цепь("no") кон
кон .
объяснение:
program max_elementarray ;
var i, max : integer ;
a : array [1..10] of integer;
begin
for i : = 1 to 10 do
readln(a[i]);
end;
max : = a[1];
for i : = 2 to 10 do
if a[i]> max then max : = a[i];
writeln('max element of array = ',max) ;
readln ;
end.
ответ:
отдел +;
использует приём из "", вывод из "";
пер
n, сумма, сч, скор, макс: цел;
указ
сумма : = 0;
макс : = 0;
вывод.цепь("введите число автомобилей: ");
n : = приём.число();
если n < 1 и n > 30 то вывод.цепь("^ошибка.") иначе
вывод.цепь("^введите скорости: ^");
от сч : = 1 до n вып
скор : = приём.число();
если n < 1 и n > 300 то вывод.цепь("^ошибка."); стоп(0) кон;
увеличить(сумма, скор);
если скор > макс то макс : = скор кон;
вывод.цепь(" ")
кон
кон;
вывод.чвещ("^средняя скорость: %.1f.^", сумма / n, 0, 0, 0);
если макс > = 60 то вывод.цепь("yes") иначе вывод.цепь("no") кон
кон .
объяснение:
program max_elementarray ;
var i, max : integer ;
a : array [1..10] of integer;
begin
for i : = 1 to 10 do
begin
readln(a[i]);
end;
max : = a[1];
for i : = 2 to 10 do
if a[i]> max then max : = a[i];
writeln('max element of array = ',max) ;
readln ;
end.