Умоляяяяю
Напишите программу
Паскаль
И по возможно поясните
А то ничего не понимаю
Дополнительные материалы:
DOKERcom:
Объясни что должна делать программа...
Ответ
0
var a:array[1..10] of integer;
i,b: integer;
begin
for i:=1 to 10 do readln(a[i]);
readln(b);
for i:=1 to 10 do if a[i]=b then writeln(i);
end.
i,b: integer;
begin
for i:=1 to 10 do readln(a[i]);
readln(b);
for i:=1 to 10 do if a[i]=b then writeln(i);
end.