Регистрация
Ferklo
25.10.2020 19:30
Информатика
Есть ответ 👍

1a3
16 Перевести з зістнадцяткового у десяткову

105
218
Посмотреть ответы 1

Ответы на вопрос:

missshapliko20
missshapliko20
4,6(39 оценок)
Var rand: array[1..20] of integer; i, x, numberx : integer; begin  writeln('массив случайных чисел'); for i: =1 to 10 do begin  rand[i]: =random(50); write(rand[i]: 4); end; writeln; write('введите х: ');   readln(x); numberx: =0; for i: =1 to 20 do if (rand[i]=x) then numberx: =numberx+1; if numberx=0  then writeln('в массиве нет числа ',x) else writeln('число',x,'в массиве присутствует ',numberx,' раза') end.

Популярно: Информатика