59

Пожалуйста решите задачу по информатике из pascalABCсоставьте программу, которая…

30 января 2023

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

категория: информатика



50

Const n=5; var a: array[1… n] of integer; i,k: integer; begink: =0; for i: =1 to n doa[i]: =random (10); for i: =1 to n do beginif (a[i]>a[i-1]) or (a[i]=a[i]) thenk: =k+1end; write ('Кол-во элементов больших соседа слева ',k); end.

Знаете ответ?


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