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

Question

Информатика

Эллада

27 апреля, 08:52

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

+4

Ответы (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.