Question

ПОМОГИТЕ как можно быстрее
компьютер генерирует случайные отрицательное число x. с клавиатуры вводятся отрицательные числа. ввод оканчивается любым положительным числом. найти и вывести на экран количество совпадений их введенных с числом x. на паскале ​

Answer 1

var

a: array [ 1..10 ] of integer; // введённые пользователем числа будут являться элементами массива и в ходе программы изменяться.

i: byte;

begin

cls;

for i := 1 to 10 do

begin

write ( 'Введите ', i, ' число: ' );

readln ( a[ i ] );

end;

for i := 1 to 10 do

begin

a [ i ] := abs ( a[ i ] );

write ( a [ i ], ' ' );

end;

end.