Напишите программку для решения последующей задачки. Камера наблюдения регистрирует в

Question

Напишите программку для решения последующей задачки. Камера наблюдения регистрирует в

Напишите программку для решения последующей задачки. Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения до целых чисел. Необходимо найти :
1)разность максимальной и малой скоростей автомобилей;
2)количество автомобилей, скорость которых не превосходила 30 км/ч.

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

ПРИМЕР РАБОТЫ Программки:

ВХОДНЫЕ ДАННЫЕ ВЫХОДНЫЕ ДАННЫЕ
4 33
74 0
69
63
96

ВЫПОЛНИТЬ В PASCAL ABC NET
ОТВЕТ ОТМЕЧУ КАК ЛУЧШИЙ!!!

Задать свой вопрос

Кастов Кирилл
Информатика
2019-08-06 01:42:01
0
1

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

20 баллов! Упр 76 Безотлагательно! Заблаговременно спасибо!

Напишите пожалуйста сочинение на тему quot;Сформировывает ли время человека?quot;.

какую кровь несёт аорта у рыб

Уравнение 4 класс номер 265 помогите плизз

до вподоби пд силу

Помагите номер 4 буду очень признателен

вещественная точка движется прямолинейно по закону x(t)=-1/4t^3+6t^2+7t+11где x расстояние

выразить в кв метрах: 200 кв дм; 500 кв дм; 1000

Установите соответствие между предложениями и допущенными в их грамматическими оплошностями: к

Таксист за месяц проехал 10000км . Стоимость бензина 32 рубля за

Юлия Чулицкая · Answer 1 · 2019-08-06 01:43:53+3:00

Var
   A:array[1..30] of integer;
   N,k,i:byte;
   Min,Max:integer;
Begin
ReadLn(N);
k:=0;
For i:= 1 to N do
    Begin
    Read(A[i]);
    if A[i]lt;= 30 then k:=k+1
    End;
Max:=A[1];
Min:=A[1];
For i:= 2 to N do
    Begin
    if A[i]gt;Max then Max:=A[i];
    if A[i]lt;Min then Min:=A[i];
    End;
WriteLn(Max-Min,' ',k);
End.

О проекте

Напишите программку для решения последующей задачки. Камера наблюдения регистрирует в

Добро пожаловать!