Здравствуйте!Информатика 9 класс.задание.Составьте программку, которая заполняет массив

Здрасти!
Информатика 9 класс.
задание.
Составьте программку, которая наполняет массив А[1..10] СЛУЧАЙНЫМИ ЦЕЛЫМИ числами в спектре от 1 до 10 и обретает количество частей, КОТОРЫЕ БОЛЬШЕ СВОЕГО СОСЕДА СПРАВА.

пример вывода:
Исходный массив:
10 2 4 1 3 5 7 8 2 7
Количество частей, которые больше своего соседа справа=3
БУДУ ОЧЕНЬ Признательна

Задать свой вопрос
1 ответ
Const   N=10;
var   a:array [1..N] of integer;   
      k,i:integer;
begin 
randomize; 
for i:=1 to N do  
    begin 
    a[i]:=random(10)+1; 
    write (a[i], ' '); 
end; 
for i:=1 to N-1 do  
   if a[i]gt;a[i+1] then k:=k+1;  
writeln('k= ', k);
end.
Валерия Гадюк
Спасибо огромнейшее! Без вас бы я пропала!
Nikita
Пожалуйста)
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт