PASCAL Заполнить массив 20 элементов случайными числами от 0 до 10. Подсчитать сколько…

Question

35

PASCAL Заполнить массив 20 элементов случайными числами от 0 до 10. Подсчитать сколько раз встречается число 5 в массиве A.

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

ответить

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

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

natta0609 · Accepted Answer

85

natta0609

09 марта 2023

Uses crt; const n=20; var a: array[1… n] of integer; i,k: integer; beginrandomize; k: =0; for i: =1 to n dobegina[i]: =random (10); writeln (a[i]); if a[i]=5 then inc (k); end; writeln; writeln (k); end.

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

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

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

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