Создать массив а из десяти целых чисел, принадлежащих промежутку [ 0; 25). Вывестиполученный массив на экран. Подсчитать к - количество элементов массива, значение которых превышает 12.

Question

Информатика

Адолия

5 апреля, 00:19

Создать массив а из десяти целых чисел, принадлежащих промежутку [ 0; 25). Вывестиполученный массив на экран. Подсчитать к - количество элементов массива, значение которых превышает 12.

+5

Ответы (1)

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

Анджела · Answer 1

Const n=10;

var a:array[1 ... n] of integer;

i, k:integer;

begin

randomize;

k:=0;

for i:=1 to n do begin

a[i]:=random (25) ;

if a[i]>12 then k:=k+1;

end;

for i:=1 to n do begin

write (a[i]) ; write (' ') ; end;

writeln (k) ; end.