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

Question

59

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

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

ответить

в избранное ссылка

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

knigilove · Accepted Answer

50

knigilove

19 февраля 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: