РЕШИТЕ ПОЖАЛУЙСТА ЗАДАЧКУ ПО ИКТ В PASCAL ABC NET ** УРОВНЕ УЧЕНИКА 8 КЛАССА. Напишите...

Question

РЕШИТЕ ПОЖАЛУЙСТА ЗАДАЧКУ ПО ИКТ В PASCAL ABC NET НА УРОВНЕ УЧЕНИКА 8 КЛАССА.
Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения до целых чисел. Необходимо определить :
1)разность максимальной и минимальной скоростей автомобилей;
2)количество автомобилей, скорость которых не превышала 30 км/ч.

Программа получает на вход число проехавших автомобилей N (1>N>30), затем указываются их скорости. Значение скорости не может быть меньше 1 и больше 300. Программа должна сначала вывести разность максимальной и минимальной скоростей автомобилей,затем количество автомобилей, скорость которых не превышала 30 км/ч.

ПРИМЕР РАБОТЫ ПРОГРАММЫ:

ВХОДНЫЕ ДАННЫЕ: ВЫХОДНЫЕ ДАННЫЕ
4;
74;
69;
63;
96;

ВЫХОДНЫЕ ДАННЫЕ : 0; 33;

Comments

Буду знать теперь

---

Мне стало все понятно.

Answer 1

1. Современное решение

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger(ReadlnInteger);
  Println(a.Max-a.Min,a.Where(p->p<=30).Count);<br>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 a>max then max:=a;
    if a    if a<=30 then k:=k+1<br>    end;
  Writeln(max-min,' ',k)
end.

Answer 2

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 > max then max := a; 

if a < min then min := a; 

if a <= 30 then num := num + 1;</p>

end;

writeln(max - min); 

writeln(num)

end.

Comments

а что такое "num"?

---

переменная

---

это счетчик

---

он увеличивается каждый раз на 1 , когда условие верно