Нужно составить программу, которая на входе должна получать последовательность цифр, после чего программа показывает цифру, порядковый номер которой ввел пользователь.
Ответы на вопрос
Ответил Аноним
0
Var
A:array[1..32767] of byte;
n:integer;
Begin
Write('Введите количество цифр: ');ReadLn(n);
Write('Введите сами числа: ');
For n:= 1 to n do
Read(A[n]);
Write('Введите номер искомой цифры: ');ReadLn(n);
Write('Искомая цифра: ',A[n])
End.
A:array[1..32767] of byte;
n:integer;
Begin
Write('Введите количество цифр: ');ReadLn(n);
Write('Введите сами числа: ');
For n:= 1 to n do
Read(A[n]);
Write('Введите номер искомой цифры: ');ReadLn(n);
Write('Искомая цифра: ',A[n])
End.
Новые вопросы
Українська мова,
2 года назад
Обществознание,
2 года назад
Физика,
8 лет назад
Физика,
8 лет назад
Математика,
9 лет назад
Алгебра,
9 лет назад