РЕШИТЕ ПОЖАЛУЙСТА Задачу ПО ИКТ В PASCAL ABC NET НА УРОВНЕ
РЕШИТЕ ПОЖАЛУЙСТА ЗАДАЧКУ ПО ИКТ В PASCAL ABC NET НА УРОВНЕ Воспитанника 8 КЛАССА.
Напишите программку для решения последующей задачи. Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения до целых чисел. Нужно найти :
1)разность максимальной и малой скоростей автомобилей;
2)количество автомобилей, скорость которых не превышала 30 км/ч.
Программа получает на вход число проехавших автомобилей N (1gt;Ngt;30), потом указываются их скорости. Значение скорости не может быть меньше 1 и больше 300. Программка обязана сначала вывести разность максимальной и малой скоростей автомобилей,затем количество автомобилей, скорость которых не превышала 30 км/ч.
ПРИМЕР РАБОТЫ ПРОГРАММЫ:
ВХОДНЫЕ ДАННЫЕ: ВЫХОДНЫЕ ДАННЫЕ
4;
74;
69;
63;
96;
ВЫХОДНЫЕ ДАННЫЕ : 0; 33;
var N, a, i, max, num, min: integer;
begin
max := 0;
min := 301;
num := 0;
readln(N);
for i := 1 to N do
begin
readln(a);
if a gt; max then max := a;
if a lt; min then min := a;
if a lt;= 30 then num := num + 1;
end;
writeln(max - min);
writeln(num)
end.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger(ReadlnInteger);
Println(a.Max-a.Min,a.Where(p-gt;plt;=30).Count);
end.
2. Школьный вариант в стиле "ТурбоПаскаль 1983г."
var
n,i,a,k,max,min:integer;
begin
Readln(n);
max:=0;
min:=301;
k:=0;
for i:=1 to n do begin
Read(a);
if agt;max then max:=a;
if alt;min then min:=a;
if alt;=30 then k:=k+1
end;
Writeln(max-min,' ',k)
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.