1. Информатика
  2. 70 . дан целочисленный

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

likewithboss likewithboss    1   07.03.2019 21:29    86

Ответы
pourkur1111oz10kt pourkur1111oz10kt  24.05.2020 19:30

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] > 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

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
semyanivskyilly semyanivskyilly  02.04.2020 09:46
Таня набирает на компьютере слишком длинное сообщение курсор уже близился к концу строки девочка должна вести ещё несколько слов...
nnxxxmm5p03cok nnxxxmm5p03cok  30.05.2019 03:10
Составить программу для решения следующей : дана последовательность символов,концом которой является точка.подсчитать,сколько в этой последовательности букв а. pascal. !...
dndzanton dndzanton  30.05.2019 03:10
1. даны высказывания: а={3*3=9}, b={3*3=10}. определите истинность высказываний: 1) а, 2) ⌐в, 3) а& в, 4) в, 5) ⌐а, 6) а /\ в....
atlantisatlantp07ft0 atlantisatlantp07ft0  30.05.2019 03:10
Составить программу, которая определяет, являются ли разные точки с координатами (x1,y1) и (x2, y2) симметричными относительно осей координат или начала координат. прочертить...
sweetk sweetk  30.05.2019 03:10
С! трое друзей спорили, как распределятся места среди трех команд школьного первенства. - первым будет «рассвет» , а «комета» – займет последнее место, -сказал семён. - победителем...
mlyz mlyz  30.05.2019 03:10
Синформатикой 1)в электронной таблице значение формулы =срзнач(a6: c6) равно 0,1. чему равно значение формулы =сумм(a6: d6), если значение ячейки d6 равно (–1)? 1) – 0,7 2)...
TheSniper TheSniper  30.05.2019 03:20
1. сколько цветов будет содержать палитра, если каждый базовый цвет кодировать двумя битами? 2. какой объем видеопамяти в кбайтах нужен для хранения изображения размером 640х250...
nata121114 nata121114  30.05.2019 03:20
Как сформировать из одномерного массива матрицу по 4 элемента в строке? паскаль...
artemivanyk200 artemivanyk200  30.05.2019 03:30
Написать программу которая находит произведение нечетных элементов в одномерном массиве. !...
Стас666228 Стас666228  30.05.2019 03:30
Нужно доработать программу, таким образом, чтобы выводилось количество шагов, потребовавшихся для угадывания числа. , program ugaday; var l,r,n,c: integer; y: 0..1; begin writeln(...

Популярные вопросы