70 БАЛЛОВ. Дан целочисленный массив из 30 частей данный случайным образом.

70 БАЛЛОВ. Дан целочисленный массив из 30 элементов данный случайным образом. Элементы массива могут принимать целые значения от -30 до +30 - значение среднесуточной температуры для каждого из 30 дней некого месяца. Составьте программку, которая дозволяет отыскать и вывести количество дней этого месяца, температура для которых была выше, чем температура в предшествующий день этого же месяца.
паскаль. (там var, array, integer либо тип того)

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

const n=30;

var a:array[1..n] of integer;

i,k:integer;

begin

randomize;

writeln('Начальный массив:');

for i:=1 to n do

begin

a[i]:=random(61)-30;

write(a[i],' ');

end;

writeln;

k:=0;

for i:=2 to n do

if a[i] gt; a[i-1] then k:=k+1;

writeln('k = ',k);

end.

Пример:

Начальный массив:

27 -16 19 23 12 3 25 6 -3 -22 12 13 22 -8 -3 7 -1 -20 -28 -20 25 22 13 -8 -3 -17 14 22 11 -9  

k = 13

Аля Скоробот
СПАСИБО Громадное. Сможете решить еще одну задачку?
Миловзоров Вадик
а этот начальный массив надобно выписывать в программку ('исходный массив')? вместо слов надобно число к примеру 27?
Семён
а k в ('k=',13) либо что. что делать с этим 13. куда его?
, оставишь ответ?
Имя:*
E-Mail:


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

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт