Предмет: Информатика,
автор: K1ng666
Помогите пожалуйста написать программу на Pascal
Приложения:

Ответы
Автор ответа:
0
===== PascalABC.NET =====
begin
var (n, k) := ReadInteger2;
var a := new integer[n + 1];
for var i := 1 to n do
a[i] := 1 + Random(100);
for var i := 1 to n do
Print(a[i]);
Writeln;
var i := 1;
while (a[i] <> k) and (i < n) do
i += 1;
if a[i] = k then
Print(i)
else
Print('Нет')
end.
Похожие вопросы
Предмет: История,
автор: theaselia1
Предмет: История,
автор: SkraidXGod
Предмет: Математика,
автор: skiricenko607
Предмет: Информатика,
автор: proverkaexzaple
Предмет: Биология,
автор: bitievru2014