Question

Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и находит кол-во элементов, которые больше своего соседа слева. Паскаль.

Answer 1

var a:array[1..10] of integer; i,k:integer;
begin
for i:=1 to 10 do 
begin
a[i]:=random(10)+1; write(a[i]:4);
end;
for i:=2 to 10 do
if a[i]>a[i-1] then inc(k);
writeln;
writeln('Колличество= ',k);
end.

Answer 2

Что такое ink?

Answer 3

inc

Answer 4

Процедура для увеличения числа. В данном случаи мы увеличиваем переменную "K"

Answer 5

это то же самое что и k:=k+1;

Answer 6

////Pascal abc.
Программа прикреплена к ответу

2e066f7bca33b37517c07d8282896bbc.pas